엑셀VBA기초 7강 - 복사 붙여넣기 여기서 끝장내자! 

VBA 강의 찾아보다가 정말 좋은 강의 찾았네요 각 강의별 핵심이 딱딱 정해져있는 기초강의 정말 너무 좋습니다 배운걸 토대로 과제 제출합니다 만약 더 좋은 방향도 있다면 조언해주시면 감사하겠습니다~ Sub test_01() Dim i As Long Dim lngR As Long lngR = Range("B2") For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas ElseIf Range("F" & i) = Range("D3") Then Range("E3:I3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Range("E6").Select Application.CutCopyMode = False End Sub

여러강의를 전전하다가 드뎌 찾았네요 정말 핵심만 딱 너무좋아요 알려고 하지마라 나중에 알게된다 보통 막 용어부터 설명들어가고 리스트니 명령어니 하는데 그냥 딱 직관적이라 너무 좋아요 부담도 없구요

하루에 하나이상 보면서 연습하고 있어요 엑사남님 말씀대로 조금씩 성장하고 있는거겠죠? 처음보다 익숙해져가는 느낌이에요 좋은 강의 감사합니다 ^^

너무 쉽게 알려주셔서 재밌게 공부하고 있습니다. Sub homework() Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = "남" Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = "여" Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next Range("e6").Select Application.CutCopyMode = False End Sub

다른분들거 참고도 하고 앞에 강의도 다시 보면서 만들었네요;; 다른분들 감사하고 존경스럽습니다^^; 강의 만드신 노고에 감사드립니다. Sub test() Dim i As Long For i = 7 To 18 If Range("F" & i) = "남" Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas Else Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i End Sub

선생님의 강의 정말 감사합니다. 차근차근 쉽게 설명해 주셔서 이해가 잘됩니다. Sub test01() Dim i As Long Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats ElseIf Range("f" & i) = Range("d3") Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats End If Next i Range("e2:k2").Select Application.CutCopyMode = False End Sub

잘 보고 있는데.. 볼륨 좀 맞춰주시면 좋겠습니다. 앞부분 엑셀을 포기하지 말아요만 엄청 크게 나와서요. 앞에 강의 볼 때 소리 잘 안 들려서 소리 키워놨다가 새 강의로 넘어오면서 소리 때문에 깜짝 놀랍니다.

좋은 강의 감사드립니다. 미숙하지만 아래와 같이 과제 수행했습니다. Sub test1() Dim u As Long Dim lngC As Long lngC = Range("v2").End(xlToLeft).Column For u = 7 To Range("b2") If Range("f" & u) = Range("d2") Then Range("e2:i2").Copy Range("e" & u).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & u).PasteSpecial xlPasteFormats Range("j" & u).PasteSpecial xlPasteFormulas Else Range("e3:i3").Copy Range("e" & u, "k" & u).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & u).PasteSpecial xlPasteFormulas End If Next u Range("e6").Select Application.CutCopyMode = False End Sub

Sub works() Dim lngA As Long For lngA = 7 To Range("b2") If Range("f" & lngA) = Range("d2") Then Range("e2:k2").Copy Range("e" & lngA).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("e" & lngA).PasteSpecial xlPasteFormats End If Range("j2:k2").Copy Range("j" & lngA).PasteSpecial xlPasteFormulas Application.CutCopyMode = False Next End Sub 열심히 독학중입니다. 항상 좋은 설명 감사합니다.

감사합니다...오늘도 좋은 강의 잘 배우고 갑니다~~~^^

7강까지 왔습니다. 정말 재미있네요. 감사합니다 선생님! Sub Homework_Copy_Paste() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").Copy Range("J" & i, "K" & i).PasteSpecial Range("E2:I2").Copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = "여" Then Range("J3:K3").Copy Range("J" & i, "K" & i).PasteSpecial Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats End If Next Range("K" & i).Select Application.CutCopyMode = False End Sub

강의 잘들었습니다ㅎㅎ 숙제있으니 정리가 더 잘되는 느낌이에요~! 이번에는 한번에 성공했습니다 ! Sub copy_n_paste_homework() 'for if 'for문태율때 전체복사(J:K),서식복사(E:I)를 따로 실행 Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").copy Range("J" & i, "K" & i).PasteSpecial Range("E2:I2").copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats Else: Range("F" & i) = "여" Range("J3:K3").copy Range("J" & i, "K" & i).PasteSpecial Range("E3:I3").copy Range("E" & i, "I" & i).PasteSpecial xlPasteFormats End If Next End Sub

쵝오입니다. 너무 귀에 쏙쏙들어와요 좋은 강의 감사합니다. 검색으로 들어왔다가 지금 정주행중~

RESIZE는 복습하고자 사용했습니다~ Sub homework() Dim lngR As Long Dim i As Long lngR = Range("E100").End(xlUp).Row For i = 7 To lngR If Cells(i, "f") = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas Else Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Range("K" & i).Select Application.CutCopyMode = False Next i End Sub

로그인 해서 댓글 처음 달아봅니다 VBA공부 중인데 정말 쉽고 유익하게 강의영상 올려주셔서 감사합니다 도움이 많이 됩니다

이번에도 열심히 들었습니다! 항상 감사합니다! Sub assignment() Dim i As Long Dim LngA As Long '마지막열 찾기 LngA = Range("e60000").End(xlUp).Row For i = 7 To LngA '남자 If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Range("e2:k2").Copy Range("e" & i).PasteSpecial xlPasteFormats '여자 ElseIf Range("f" & i) = Range("d3") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Range("e3:k3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub

강의 너무 감사합니다. 숙제에서 질문이 있는데요 sub test() dim i as long for i = 7 to range("B3") if range("F"&i) = range("D2") then range("E2:K2").copy range("E" & i & ":K" & i).pastespecial xlpasteformats range("J2:K2").copy range("E" & i & ":K" & i).pastespecial xlpasteformulas end if if range("F"&i) = range("D3") then range("E3:K3").copy range("E" & i & ":K" & i).pastespecial xlpasteformats range("J3:K3").copy range("E" & i & ":K" & i).pastespecial xlpasteformulas end if next i range("E6").select application.cutcopymode = false end sub 이렇게 해서 다 되는데 J13이 J12의 함수를, J17이 J16의 함수를 가지고 오는데 무엇이 문제일까요?

좋은 강의 너무 감사드립니다! 이번 과제는 좀 어려워서 1시간도 넘게 걸렸네요.. 맞는지는 모르겠지만 막상 하고 나니 할만 하네요 항상 감사합니다! Sub hw() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("J2:K2").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlFormulas Range("E2:K2").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlFormats End If If Range("F" & i) = Range("D3") Then Range("J3:K3").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlFormulas Range("E3:K3").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlFormats End If Next i End Sub

잘 배웠습니다! 혼자도 해보고 다른분들것도 보면서 여러가지 해보니 재밌네요 Sub test03() Dim i As Long For i = 7 To 18 If Range("f" & i) = "남" Then Range("e2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If If Range("f" & i) = "여" Then Range("e3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("f6").Select Application.CutCopyMode = False End Sub

강의 항상 감사합니다. 코로나 조심하시고 항상 건강하시길 바랍니다. 알려주신 내용 똑같이 따라해보고, 과제도 했습니다. 과제할 때 처음엔 어떻게 하지 했는데, 앞 강의에서 알려주신 내용으로 해결이 되네요 ㅇ_ㅇ)b Sub Copy_Male_Female() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":K" & i).PasteSpecial Else Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":K" & i).PasteSpecial End If Next i Range("E6").Select Application.CutCopyMode = False End Sub

영상 감사합니다 ㅎㅎ 과제완료요 여러가지방법이있군요.. 다른것도 보고 따라해봐야겠네요... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f7:f26")) Is Nothing _ Then Exit Sub With Target.Resize(1, 7).Interior If .ColorIndex = 3 Then .ColorIndex = 0 Else .ColorIndex = 3 End If End With End Sub Sub copy() Dim i As Long Dim lngr As Long lngr = Range("o4") For i = 7 To lngr Range("f7 : g" & i).Interior.Color = 16182238 Range("h7 : k" & i).Interior.Color = 16777215 Range("l7 : l" & i).Interior.Color = 14282722 Next End Sub

뒤늦게 영상을 찾아 공부중입니다 알기 쉬운 강의 감사합니다!

실무+간단한거 알려주셔서 감사해요~^^ 궁금하던 내용입니다.

완전 아무것도 모르고 엑셀이 좋아서 보기 시작했는데, 항상 감사드립니다. 늦게 발견해서 매일매일 보는데 너무 재밌습니다! 숙제는 겨우 했습니다 ㅠㅠ 포기할 뻔 했는데 매번 용기 주셔서 감사드립니다. 다른 분들과 다른 것 같은데 이렇게 해도 맞겠죠..? Sub Test_01() Dim lg_A As Long Dim lg_B As Long lg_B = Range("E1000").End(xlUp).Row For lg_A = 7 To lg_B If Range("F" & lg_A) = Range("D2") Then Range("J2:K2").Copy Range("J" & lg_A).PasteSpecial xlPasteFormulas Range("E2:k2").Copy Range("E" & lg_A).PasteSpecial xlPasteFormats ElseIf Range("F" & lg_A) = Range("D3") Then Range("J3:K3").Copy Range("J" & lg_A).PasteSpecial xlPasteFormulas Range("E3:k3").Copy Range("E" & lg_A).PasteSpecial xlPasteFormats End If Next Application.CutCopyMode = False End Sub

좋은 강의 늘 잘 듣고 있습니다. 감사합니다. 과제 완료! 한가지 궁금한게,, 조건식에서 단어가 동일한 경우 말고, 일부만 포함되도 실행하는 걸로 하려면 어떻게 해야 할까요? '남'뿐만 아니라, '남자' '끝남'과 같이 '남'이 포함되기만 해도 실행되는 것처럼 할려면여.. Sub test01() For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i End Sub

양질의 강의 감사합니다 너무 재밌어요! Sub test() Dim i As Long Dim j As Long i = Range("e1000").End(xlUp).Row Range("j2:k2").Copy Range("j7:k" & i).PasteSpecial xlPasteFormulas For j = 7 To i If Range("f" & j) = "남" Then Range("e2:k2").Copy Range("e" & j).Resize(1, 7).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("e" & j).Resize(1, 7).PasteSpecial xlPasteFormats End If Next j End Sub

안녕하세요. 그동안 조용히 댓글 안 달고 보다가 다른분들께서 과제한 거 올려주신게 도움이 많이 돼서 저도 공유하고자 합니다. 엑사남님 좋은 강의 항상 감사합니다. Sub test04() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas ElseIf Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Application.CutCopyMode = False End Sub

저도 헤매다가 다른 분들 과제 보고 힌트 얻어서 다시 했네요. 감사합니다. Sub Test01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteAll Else Range("E3:I3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteAll End If Next i Range("E6").Select Application.CutCopyMode = False End Sub

강의 감사합니다. 중간에 다른 것 하다가 다시 시작했는데, 두 번 들으니 더욱 더 이해가 잘되네요. Sub test01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("E2:K2").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("j" & i).PasteSpecial xlPasteFormulas Else Range("E3:K3").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("j" & i).PasteSpecial xlPasteFormulas End If Next i End Sub

전체 표 범위 : currentregion, 이전 서식 지우기 range(" ").currentregion.clear 예제1) Range("F6:L10")이렇게 하면 f6부터 L10까지의 범위 Sub test01() Range("O6").CurrentRegion.Clear Range("F6:L10").CurrentRegion.Copy Range("O6").PasteSpecial Application.CutCopyMode = False End Sub 예제2) 수식으로 저장하면 파일 무거움. 따라서수식이 아닌 값으로 변환하여 저장 Sub test01() Range("F6").CurrentRegion.Copy Range("F6").PasteSpecial xlPasteValues Range("F6").Select Application.CutCopyMode = False End Sub xlPasteformulas -->수식만 xlplasteformat -->서식만

(질문) 질문해도 되나요?ㅠ.ㅠ 수식 복사할 때 아래와 같이 하면 왜 안되는걸까요? Sub test01() Range("K3:L3").Copy Range("k7").CurrentRegion.PasteSpecial xlPasteFormulas End Sub

매강의마다 알기쉽게 설명해 주셔서 잘보고 있습니다. 감사드립니다

정말 훌륭한 강의입니다. 많이 배웁니다 감사합니다. range 함수 관련 질문이 있습니다. 기본문법이 range("A1") 이런식인가요? 그런데 어떻게 1을 대신하는 변수 (i=1)를 넣고 따옴표가 없이 range("A" & i) 가 가능한지요? range("A" & i & "") 이게 맞지 않나요 (따옴표로 마치는 부분) ,VBA에서 둘다로 해보니까 다 가능하더라고요..문법이 좀 blurry하지 않나 싶어서요..

오늘도 1깡합니다~ :) 유저폼까지도 자유롭게 다뤄서 유용한 tool을 만들고 싶습니다. 강의 감사드립니다!! Question) 모듈창에서 F5로 실행한 이후 변경된 시트를 Ctrl+Z로 되돌아가기가 되지 않습니다. 방법이 있을까요? Sub Homework_Copy() Dim i As Long Dim rng As Range Set rng = Cells(Rows.Count, "e").End(xlUp) For i = 7 To rng.Row If Range("d2") = Range("f" & i) Then Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).PasteSpecial ElseIf Range("e3:i3").Copy Then Range("e" & i).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).PasteSpecial End If Next i End Sub

좋은 강의 감사합니다. 하나씩 따라 하고 있습니다. 수고하세요~

Sub test() Dim a As Long For a = 7 To Range("b2") If Range("f" & a) = Range("d2") Then Range("E2:i2").Copy Range("E" & a).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & a).PasteSpecial Else Range("E3:k3").Copy Range("E" & a).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & a).PasteSpecial End If Next a Range("e5").Select Application.CutCopyMode = False End Sub 어렵지만 해보니 재밌네요!!!

그런데 엑사남님, range(XX).end(xltoleft).column은 열을 알파벳이 아닌 숫자로 반환하는데, 이 둘을 자유자재로 변환할 수 있는 방법은 없을까요? 3과 C가 매칭이되는 그런 함수...는 없을까요?

좋은 강의 감사드립니다! 과제 올려봅니다 ㅎㅎ Sub test01() Dim lngr As Long Dim i As Long Dim j As Long lngr = Range("E100").End(xlUp).Row For i = 7 To lngr For j = 2 To 3 If Range("F" & i) = Range("D" & j) Then Range("E" & j).Resize(1, 5).Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J" & j).Resize(1, 2).Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next j Next i Range("E6").Select Application.CutCopyMode = false End Sub

좋은 강의 감사해요!! 아직 제가 원하는 기능은 찾고 있는데 다 꿀정보네요 ㅎㅎ

안녕하세요 과제 관련 질문 있습니다 아래코딩에서 " lngR = WorksheetFunction.CountA("F:F") + 6 For i = 7 To lngR" 이 부분이 인식이 안되더라고요 lngR을 18로 바꾸면 잘 작동하는데 어느부분이 잘못된건가요? 설명부탁드립니다 항상 감사합니다 ! Sub test01() Dim i As Long Dim lngR As Long lngR = WorksheetFunction.CountA("F:F") + 6 For i = 7 To lngR If Cells(i, "F") = Range("D2") Then Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteFormulas End If If Cells(i, "F") = Range("D3") Then Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteFormulas End If Next i End Sub

선생님 이번 강의도 정말 감사합니다. 잘배웠습니다. 다음 강의도 기대하겠습니다.

A 파일 sheet1의 그림 Pic1을 B파일 sheet1의 같은 위치에 Pic1을 복사하고 싶은데 Pic1을 잡는 함수가 어떤게 있어요? 인터넷을 다 뒤져도 그림파일을 엑셀의 셀에 불러다 놓는것만 있어서 컨닝을 할려고 해도 못하겠네요 좀 알려주세요 아직 vba강의는 잘 보고 있습니다. 수고하세요 ^^

질문좀요~ 강의 정말 잘 보고 있습니다. 마지막 과제 부분에서 엑사남님이 합계, 평균 부분과 성명~수학까지 한부분으로 나눠서 해야 한다고 하셔서 작성해봤는데.... 오류가 나서요~ 이유를 잘 모르겠습니다. 참고로 강의에서 알려주신데로 b2셀에 counta를 해서 총 열개수를 찾았습니다. 끝까지 하지 못한상태에서 중간중간 실행하면서 되는지 여부 확인하는데.... 오류가 나네여...;;; 뭐가 문제인지....ㅠㅠ 좀 알려주시면 안될까요? Sub macro() Dim i As Long For i = 7 To Range("b2") If Cells(i, "f") = Range("d2") Then Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial.xlFormulas Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial.xlFormats Else Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial.xlFormulas Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial.xlFormats End If Next End Sub

오늘도 잘 봤습니다ㅎ 과제하러가보겠슴돠

궁금한게 자막이 항상 코딩하는 부분을 가리는데 일부러 저희가 안 보고 하라고 그 위치에 자막을 넣으시는건가요??

이게 작업이 실제 구현될때 그 짜릿함이 엄청나네요. 그 어떤 취미활동보다 재밌어요 ㅋㅋ 조건부 복붙 과제 제 답안입니다. Sub ctlv_tesk() Dim i As Long For i = 7 To 18 If Range("F" & i) = Range("D2") Then Range("J2 : K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll Range("E2 : K2").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Else Range("J3 : K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats End If Next Range("E6").Select Application.CutCopyMode = False End Sub

제가 쓴 걸로 해 보고, 다른 분들이 올린 공식도 써보니 방법이 다양하네요 자기만의 방법이 있는 건가요? 그리고 range("A10000").end(xlup).row range("xfd").end(xlleft).column 이 공식 쓰고 안 쓰고 차이가 있을까요? 아직 초보지만... 고수가 되고 싶은 꿈이 있어서... .욕심이 많습니다

감사합니다. 한가지 질문 드려도 될까요? 유효성검사 목록박스를 선택하면 데이터가 바뀌는데 바뀌는 데이터들을 복사해서 붙이고 싶습니다. 자동으로 목록을 변형해가면서 다른 위치에 복사하는 방법을 간단하게라도 알려주시면 감사하겠습니다.

7강 수강완료!! 배우고 과제도 나름대로 완료 했습니다!^^;; Sub 과제_붙여넣기() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats Else Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats End If Next i Range("J2:K2").Copy Range("J7:K" & i - 1).PasteSpecial xlPasteFormulas Range("E6").Select Application.CutCopyMode = False End Sub

실행은 되는데 숙제가 제대로 된것인지 모르겠습니다. Sub CopyPaste() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial ElseIf Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i Range("e6").Select Application.CutCopyMode = False End Sub

Sub test() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Range("J2:K2").Copy Range("J7:K" & i).PasteSpecial xlPasteFormulas Next i Application.CutCopyMode = False End Sub 강의 정말 감사합니다!!!!!!!!!

vba 재밌게 수강중입니다. 과제 제출! Sub homework() '수식 복사 Range("j2:k2").Copy Range("j7:j" & Range("b2")).PasteSpecial xlPasteFormulas '서식 복사 Range("e7:k" & Range("b2")).ClearFormats Dim i As Long For i = 7 To Range("b2") If Cells(i, 6) = "남" Then Range("e2:k2").Copy Cells(i, 5).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Cells(i, 5).PasteSpecial xlPasteFormats End If Next i Cells(1, 1).Select Application.CutCopyMode = False End Sub

복붙 4가지 종류 숙련되져서 필요시마다 써야겠어요~! 그나저나 저에겐 과제 어렵네요 ㅜㅜㅋㅋ

덕분에 공부 열심히 하고 있습니다~~! Sub test() Dim i As Long Dim logR As Long For i = 7 To Range("B2") If Range("G" & i) = Range("e2") Then Range("K2:L2").Copy Range("k" & i).PasteSpecial xlPasteFormulas Range("F2:L2").Copy Range("f" & i).PasteSpecial xlPasteFormats Else Range("k3:l3").Copy Range("K" & i).PasteSpecial xlPasteFormulas Range("F3:L3").Copy Range("F" & i).PasteSpecial xlPasteFormats End If Next i Range("F2").Select Application.CutCopyMode = False End Sub

코드 작성하시면서 .CurrentRegion 같은 프로시저? 이거 선택할때 누르시는 버튼이 무엇인가요? 저는 엔터 누르면 다음줄로 넘어가는데 마우스로 클릭하시는것 같지는 않고... 선택하는 버튼이 따로 있는걸까요?

간신히 따라가면 잘 배우고 있습니다 근데 이번 과제물을 수행하면 처리속도가 느리던데 저만 이런건가요? 구문은 아래와 같습니다. Sub homework() Dim i As Long Dim lngR As Long Application.ScreenUpdating = False lngR = Cells(Rows.Count, "E").End(xlUp).Row For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i Application.CutCopyMode = False End Sub

퍼즐푸는것 같습니다. 재밌네요~ 과제제출합니다 Sub Test01() Dim i As Long Range("J2:K2").Copy Range("J7:K18").PasteSpecial xlPasteFormulas For i = 7 To Range("B1") If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i, "K" & i).PasteSpecial xlPasteFormats Else Range("E3").Resize(1, 7).Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i Range("A1").Select Application.CutCopyMode = False End Sub

크~ 너무나 유익한것 알면 알수록 잼있습니다 감사합니다 ^^

안녕하세요 붙여넣기 끝장내기 잘봤습니다 혹시 붙여넣기 한다음 다음줄부터 다시 붙여넣기 할수 있나요??

덕분에 열공하고 있습니다. Sub Copy_Paste_HomeWork() Dim i As Long For i = 7 To Range("b2") If Range("F" & i) = "남" Then Range("E2:K2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas Else: Range("F" & i) = "여" Range("E3:K3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlFormats Range("J3:K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlFormulas End If Next i Range("F6").Select 'F6셀을 선택 Application.CutCopyMode = False '복사모드 취소 End Sub

안녕하세요. 쉽게 가르쳐 주셔서 정말 감사합니다. 이번 과제를 따라 해보니 왼쪽 테두리 굵은 선이 나타나지 않는데요. 뭐가 잘못되어서 일까요?

Sub 과제() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = "남" Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("E" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:k3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub 강 xlpasteformates 철자가 틀린지도 모르고 한참 헤맸네요 강의 감사합니다

너무 감사해요 뒤 늦게 배우고 있는데 정말 알아듣기 쉽고 유용해요 Sub Test04() Dim i As Long For i = 7 To Range("B2") If ActiveSheet.Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll ElseIf ActiveSheet.Range("F" & i) = "여" Then Range("E3:I3").Copy Range("E" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("E2").Select Application.CutCopyMode = False End Sub

내용 제미있습니다.....꾸준하게 공부해서 실무과정도 듣고싶습니다..그러나 천천히....감사합니다..

Sub 수업7강숙제() Dim i As Long Dim lastrow As Long lastrow = Range("E10000").End(xlUp).Row For i = 7 To lastrow If Cells(i, 6) = "남" Then Range("E2:I2").Copy Cells(i, 5).PasteSpecial xlPasteFormats Range("J2:K2").Copy Cells(i, 10).PasteSpecial End If If Cells(i, 6) = "여" Then Range("E3:I3").Copy Cells(i, 5).PasteSpecial xlPasteFormats Range("J3:K3").Copy Cells(i, 10).PasteSpecial End If Next i Application.CutCopyMode = False End Sub

1004런타임 오류가 발생하였습니다. 코드가 틀린게 없는것 같은데 처음부분중에서 전체복사연습이요.ㅎㅎ RANGE 메서드 ('GLOBAL'개체의)에서 오류가 발생하였다라는게 나오네요. 아직쳇방에 못들어가서 간단한거라 여기남겨봅니다. Sub test01() Range("F6").CurrentRegion.Copy Range("06").PasteSpecial End Sub 코드보다 이렇게 수식으로 제공되서 나올때 모듈연결을 못하거나 해서 오류가 난다고 생각합니다. 그냥 새창열어서 거기다가 코드치는건 다해보고 있거든요. 그리고 lngr 이렇게 치는것과 lngR은 따로 대문자로 R을 치는건지 주석처럼 자동으로 그부분이 대문자로 변경이 되는건지 실행해보면 명령어 실행은 되는데 갑자기 궁금해져서 남깁니다.

좋은영상 정말 감사합니다. 모든 강의를 마치고 회사에서 진행하는 반복업무들에 대해 적용해 보고 후기를 남기도록 하겠습니다. 진심으로 감사드립니다.

이번과제 범위 설정하는게 되게 어려웠네요.. range("e"&i : "k" &i) 요런식으로 하니까 안되네요 ㅎㅎ.. Sub test() Dim i As Long For i = 7 To Range("b2") Range("j2:k2").Copy Range("j7:k" & Range("b2")).PasteSpecial xlPasteFormulas If Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = Range("d3") Then Range("e3:k3").Copy Range("e" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next End Sub

샘 복사해서 붙여넣기 할때마다 기존 파일은 다음 행으로 이동이 되면서 붙여넣기한개 쌓이게 할려면 어떻게 하는건가요 ?

과제 두가지로 해봤어요 Sub test4() Dim i As Long Dim lngR As Long lngR = Range("a2") For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i For i = 7 To lngR If Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i End Sub --------------------------------------------------------------------------------------------------------------------------- Sub test5() Dim i As Long Dim lngR As Long lngR = Range("a2") For i = 7 To lngR If Range("f" & i) = Range("D2") Then Range("e2").Resize(1, 5).Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j2:K2").Copy Range("j" & i).Resize(1, 2).PasteSpecial ElseIf Range("f" & i) = Range("d3") Then Range("e3").Resize(1, 5).Copy Range("e" & i).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial End If Next i Application.CutCopyMode = False End Sub

오늘도 복습 삼매경입니다. Sub task7() Dim i As Long Range("o6").CurrentRegion.Clear Range("f6").CurrentRegion.Copy Range("o6").PasteSpecial Range("j2:k2").Copy Range("t7:U" & Range("b2")).PasteSpecial xlPasteFormulas For i = 7 To Range("b2") If Range("p" & i) = Range("d2") Then Range("e2:k2").Copy Range("o" & i).Resize(1, 7).PasteSpecial xlPasteFormats Else Range("e3:k3").Copy Range("o" & i).Resize(1, 7).PasteSpecial xlPasteFormats End If Next i Range("f6").Select Application.CutCopyMode = False End Sub

강의 잘 들었습니다!! 그런데 혹시 매크로를 실행시켰는데 잘못 실행되어서 매크로를 실행하기 이전의 상태로 자료를 되돌리고싶으면 어떻게 해야하는지 알 수 있을까요?

질문있어요ㅠㅠ 강의중 [수식만 복사]부분이 자꾸 에러창이 뜨네요 세번째줄에 자꾸 노랑색(에러)이뜨는데 강사님 하시는데로 그대로 했느네 왜 에러가 날까요? 예제다운 받아서 했고 counta 수식은B3에 있습니다. Sub bokboot() Range("K3:L3").Copy Range("K7:L" & Range("B3")).PasteSpecial xlPasteFormulas Application.CutCopyMode = False End Sub

항상 양질의 강의 감사합니다! 과제입니다! Sub test05() Dim lngA As Long Dim lngB As Long lngA = Range("E1").End(xlDown).Row + 1 lngB = Range("E10000").End(xlUp).Row Range("J2:K2").Copy Range("J" & lngA & ":K" & lngB).PasteSpecial xlPasteFormulas For i = lngA To lngB If Range("F" & i) = Range("D2") Then Range("E2:K2").Copy Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = Range("D3") Then Range("E3:K3").Copy Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats End If Next i Application.CutCopyMode = False Range("E" & lngA).Select End Sub

좋은 영상 감사합니다. ★★★★★

어려워서... 숙제를 안내주셨던거 군요.... 포기할까봐.. ㅎㅎ 다행히 포기하지 않고 스승님의 말씀 대로 끝까지 했습니다 ㅠㅠ 이번 숙제는 꽤 오래 걸려서 결국 지금 숙제 제출합니다. Sub Test03() Dim i As Long Dim lngR As Long lngR = Range("C1000").End(xlUp).Row For i = 6 To lngR If Cells(i, 3).Value = "M" Then Range("B2:F2").Copy Range("B" & i, "F" & i).PasteSpecial xlPasteFormats Range("G2:H2").Copy Range("G" & i, "H" & i).PasteSpecial ElseIf Cells(i, 3) = "W" Then Range("B3:F3").Copy Range("B" & i, "F" & i).PasteSpecial xlPasteFormats Range("G3:H3").Copy Range("G" & i, "H" & i).PasteSpecial End If Next i End Sub 해결하고 나니 뿌듯합니다. 좀만 쉬었다가 다시 시간날때 8강도 보고 숙제 바로 제출 하겠습니다 ㅎ 감사합니다

B2열에 =Counta( E:E)+5 Sub test8() Dim i As Long For i = 7 To Range("B3") If Cells(i, 6) = Range("d2") Then Range("j2:k2").Copy Range("J" & i).Resize(1, 2).PasteSpecial Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlFormats Else Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial Range("e3:f3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlFormats End If Range("e" & 6).Select Application.CutCopyMode = False Next i End Sub

질문있습니다 쌤 아래와 같이 코딩을 했습니다. Sub paste_formats() Dim lngi As Long Range("F6").CurrentRegion.Select lngi = Range("F6").CurrentRegion.Row + 5 MsgBox lngi Range("K3").CurrentRegion.Copy For j = 7 To lngi Range("K" & j).PasteSpecial xlFormulas Next j Application.CutCopyMode = False Range("F6").Select End Sub 그런데, lngi라는 변수가 table의 열(column)값이 되도록 설정했습니다. MsgBox를 통해 제가 의도한 열 값이 나온느지 확인했는데, 18이 나오지 않고 11이 나오네요. 뭐가 잘못된걸까요?

안녕하세요 엑셀 VBA입문하던 중 필요한 기능이 있는데...도저히막혀서 문의 드립니다. 함수를 만들어서 조건에 따라 이름이 지정된 영역의 값을 복사해와서 함수를 입력한 셀이나 함수가 있는셀에 바로 오른쪽에 붙여놓도록 하고 싶습니다만...좋은방법이 있을까요?

감사합니다 ^^

과제물 조건대로 나오게 & 과제물 처음과 동일하게 표가 나오도록 지우기 Sub paste() Dim i As Long For i = 7 To Range("b2") If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats ElseIf Range("f" & i) = Range("d3") Then Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Range("e6").Select Application.CutCopyMode = False Next i End Sub Sub paste2() Range("j7:k" & Range("b2")).Clear Range("e7:k" & Range("b2")).ClearFormats End Sub

한창 해메다가 정답을 찾았네요... ㅠㅠㅠ Sub test05() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("J2:K2").Copy Range("J" & i).PasteSpecial xlPasteFormulas Range("E2:K2").Copy Range("E" & i).PasteSpecial xlPasteFormats ElseIf Range("F" & i) = "여" Then Range("J3:K3").Copy Range("J" & i).PasteSpecial xlPasteFormulas Range("E3:K3").Copy Range("E" & i).PasteSpecial xlPasteFormats End If Next i End Sub

과제 어려웠는데 완성해두고 보니 완전 뿌듯해요 ㅎㅎ 재미 있네요! :) Sub test_03() Dim lnga As Long Dim lngb As Long lnga = Range("e100").End(xlUp).Row For lngb = 7 To lnga If Cells(lngb, 5) = Range("D2") Then Range("E2:M2").Copy Range(("E" & lngb) & ":" & ("M" & lngb)).PasteSpecial xlPasteFormats ElseIf Cells(lngb, 5) = Cells(3, 4) Then Range("E3:M3").Copy Range(("E" & lngb) & ":" & ("M" & lngb)).PasteSpecial xlPasteFormats End If Next Range("E6").Select Application.CutCopyMode = False End Sub

수식만 복사에서 아래와 같이 코딩했는데 수식이 먹히지가 않아요 뭐가 문제 인가요? Sub cutFormula() Dim rowCount rowCount = Cells(Rows.Count, "f").End(xlUp).Row Range("K3:L3").Copy Range("K7:L" & rowCount).PasteSpecial xlPasteFormulas End Sub

왜 자꾸 실패할까 하고 남의 코드를 자세히 들여다보니까. pastespecial 뒤에 xlpasteformats 사이에 콤마를찍지 않고 띄어쓰기를 해야하네요. 이거 코딩력 뿐만아니라 상당한 관찰력도 요하네요

항상 잘보고 있습니다 ㅎㅎ Sub Test_05() Dim i As Long Dim a As Long For i = 6 To Range("b2") If Range("F" & i) = "남" Then Range("E2:I2").Copy Cells(i, 7).Resize(1, 5).PasteSpecial xlFormats Range("J2:K2").Copy Cells(i, 10).Resize(1, 2).PasteSpecial xlFormulas Else Range("E3:I3").Copy Cells(i, 7).Resize(1, 5).PasteSpecial xlFormats Range("J2:K2").Copy Cells(i, 10).Resize(1, 2).PasteSpecial xlFormulas End If Next End Sub

항상 유익한 강의에 초보자로서 감사함을 느끼고 있습니다. 질문이 간단하게 있습니다. Sub homework2() Dim lngA As Long Dim lngB As Long lngA = Range("E1000000").End(xlUp).Row For lngB = 7 To lngA If Cells(lngB, "F") = Range("D2") Then Range("e2:k2").Copy Range(("e" & lngB) & ":" & ("k" & lngB)).PasteSpecial xlPasteFormats ElseIf Cells(lngB, "F") = Range("D3") Then Range("e3:k3").Copy Range(("e" & lngB) & ":" & ("k" & lngB)).PasteSpecial xlPasteFormats End If Next Range("e6").Select Application.CutCopyMode = False Range("j2:k2").Copy Range("j7:K" & lngB).PasteSpecial xlPasteFormulas End Sub 도저히 답이 안나와 다른분들꺼 참고해 가면서 나름 해결을 했는데요. 제 질문은 'Range("j7:K" & lngB).PasteSpecial xlPasteFormulas' 라고 표현한것은 j7 셀에서 k lngB(k18)셀까지 수식을 붙여넣겠다. 라는 의미로 넣은건데요.(다른 분들 과제 참조) 원래 k까지 큰따옴표로 막아주고 &표시 후 lngB 이런식으로 표기하는 건가요? 이게 표준인건지 궁금해서 여쭤봅니다!

첫번째 행과 열을 찾는 방법 공유 드립니다 Dim st_r As Long Dim st_c As Long st_r = Range("F1").End(xlDown).Row st_c = Range("A6").End(xlToRight).Column Cells(st_r, st_c).CurrentRegion.copy Range("O6").PasteSpecial

VBE에서 [도구 - 옵션 - 편집기 형식]에서 글꼴변경은 되는데 글자크기는 변경해도 8 그대로 안바뀌네요... 부탁합니다.

숙제 올릴려고 했는데 회사 PC가 DRM이 걸려 있어서 복사 붙여넣기가 안되네요~T.T

(1번 방식) Sub test01() Dim i As Long For i = 7 To Range("B2") If Range("f" & i) = "남" Then Range("e2:i2").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll Else: Range("f" & i) = "여" Range("e3:i3").Copy Range("e" & i).Resize(1, 5).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteAll End If Next i Range("e2").Select Application.CutCopyMode = False End Sub (2번 방식) Sub test02() Dim lngr As Long Dim i As Long lngr = Range("e1000").End(xlUp).Row For i = 7 To lngr If Range("f" & i) = "남" Then Range("e2:m2").Copy Range(("e" & i) & ":" & ("m" & i)).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range(("j" & i) & ":" & ("k" & i)).PasteSpecial xlPasteAll ElseIf Range("f" & i) = "여" Then Range("e3:m3").Copy Range(("e" & i) & ":" & ("m" & i)).PasteSpecial xlPasteFormats Range("j3:k3").Copy Range(("j" & i) & ":" & ("k" & i)).PasteSpecial xlPasteAll End If Next i Range("e6").Select Application.CutCopyMode = False End Sub

좋은 강의 감사합니다. 열심히 듣고있습니다. Sub homework01() Dim i As Long For i = 7 To Range("B2") If Range("F" & i) = "남" Then Range("E2:I2").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i).PasteSpecial ElseIf Range("F" & i) = "여" Then Range("E3:i3").Copy Range("E" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i).PasteSpecial End If Next i Range("E200").End(xlUp).Select Application.CutCopyMode = False End Sub

숙제가 생각보다 어려워서 좀 걸렸지만 어떻게든 만들었습니다. 여기까지 올수 있게 해주셔서 감사합니다. 계속해서 포기하지않고 열심히 배울게요! Sub ASSINGMENT() Dim lngR As Long lngR = Range("b1") For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("e2:i2").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas End If If Range("f" & i) = Range("d3") Then Range("e3:i3").Copy Range("E" & i).Resize(1, 7).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i).Resize(1, 2).PasteSpecial xlPasteFormulas End If Next i End Sub

오늘도 감사합니다. ^^ 느리지만 꾸준히 잘 배우겠습니다. Sub Test_1() Dim i As Long lngR = Range("E1000").End(xlUp).Row For i = 7 To lngR If Range("D2") = Cells(i, 6) Then Range("E2:K2").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlPasteFormulas ElseIf Range("D3") = Cells(i, 6) Then Range("E3:K3").Copy Range("E" & i & ":" & "K" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":" & "K" & i).PasteSpecial xlPasteFormulas End If Next i Range("E6").Select Application.CutCopyMode = False

Sub 과제() Dim i As Long Dim lngR As Long lngR = Range("e1000").End(xlUp).Row For i = 7 To lngR If Range("f" & i) = Range("d2") Then Range("j2:k2").Copy Range("j" & i).PasteSpecial Range("e2:i2").Copy Range("e" & i).PasteSpecial xlPasteFormats Else Range("j3:k3").Copy Range("j" & i).PasteSpecial Range("e3:i3").Copy Range("e" & i).PasteSpecial xlPasteFormats End If Next i End Sub 오늘도 학습 잘 하였습니다. 구글 좌표 구현 부탁드려요

Sub paste_condition() Dim l_col As Long l_col = Cells(1000, 5).End(xlUp).Row For j = 7 To l_col If Range("F" & j) = Range("D2") Then Range("J2:K2").Copy Range("J" & j).PasteSpecial xlPasteFormulas Range("E2:K2").Copy Range("E" & j).PasteSpecial xlPasteFormats ElseIf Range("F" & j) = Range("D3") Then Range("J3:K3").Copy Range("J" & j).PasteSpecial xlPasteFormulas Range("E3:K3").Copy Range("E" & j).PasteSpecial xlPasteFormats End If Next j End Sub

헿 수강 완료 했습니다! Sub cp_hw() Dim i As Long For i = 7 To Range("b3") If Range("f" & i) = Range("d1") Then Range("e1:k1").Copy Range("e" & i & ":k" & i).PasteSpecial xlPasteFormats Range("j1:k1").Copy Range("j" & i & ":k" & i).PasteSpecial ElseIf Range("f" & i) = Range("d2") Then Range("e2:k2").Copy Range("e" & i & ":k" & i).PasteSpecial xlPasteFormats Range("j2:k2").Copy Range("j" & i & ":k" & i).PasteSpecial End If Next i Range("e6").Select Application.CutCopyMode = False End Sub

선생님 강의너무감사합니다. 잘보고있습니다. 범위 구할때 예를 들면 Range("A" & i).Resize(1,7) 말고 다르게 하고 싶은데 Range("A" & i : "G" & i) 이렇게 하니까 안되더라구요... 밑에 댓글보고 Range("A" & i & ":G" & i) 이라고 알았습니다. 이해가 잘 안되서 일단 외웠습니다. 이렇게 쓰는 이유가 있나요?

Sub 복사_붙여넣기5() Dim i As Long Dim lngR As Long lngR = Range("E10000").End(xlUp).Row For i = 7 To lngR If Range("F" & i) = Range("D2") Then Range("E2:I2").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J2:K2").Copy Range("J" & i & ":K" & i).PasteSpecial Else Range("E3:I3").Copy Range("E" & i & ":I" & i).PasteSpecial xlPasteFormats Range("J3:K3").Copy Range("J" & i & ":K" & i).PasteSpecial End If Next i Range("E6").Select Application.CutCopyMode = False End Sub

Sub sheet1_과제() Dim lngk As Long For lngk = 7 To Range("c3") If Range("f" & Range("c3")) = "남" Then Range("j2:k2").Copy Range("j" & lngk).Resize(1, 2).PasteSpecial xlFormulas Range("e&lngk:k&lngk").PasteSpecial xlFormats Else If Range("f" & lngk) = "여" Then Range("e3:I3").Copy Range("e&lngk : I&lngk").PasteSpecial xlFormats Range("J3:K3").Copy Range("J&lngk : K&lngK").PasteSpecial xlFormulas End If End If Next lngk End Sub 이렇게 넣었는데 Range("e&lngk:k&lngk").PasteSpecial xlFormats 이부분이 런타임 오류나네요... ㅠㅠ 친구한테 물어보니까 런타임 오류는 문법 틀린건 아니라는데 왜 안되는지 감이 안잡히네요.