너무 쉽게 알려주셔서 재밌게 공부하고 있습니다. 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
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
좋은 강의 감사드립니다. 미숙하지만 아래와 같이 과제 수행했습니다. 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
혼자서는 과제물 해결이 안 되서, 댓글에 있는 완성된 코딩들을 참고했는데, 여기 코드가 가장 간결하더군요. 그리고 연속되는 셀을 선택할 때, Range("E" & i, "I" & i)와 같이 쉼표를 사용하든 Range("E" & i & ":I" & i)에서와 같이 콜론을 사용하든 모두 동일하게 작동된다는 사실도 확인했습니다. 감사합니다.
잘 배웠습니다! 혼자도 해보고 다른분들것도 보면서 여러가지 해보니 재밌네요 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
강의 너무 감사합니다. 숙제에서 질문이 있는데요 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의 함수를 가지고 오는데 무엇이 문제일까요?
강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
강의 항상 감사합니다. 코로나 조심하시고 항상 건강하시길 바랍니다. 알려주신 내용 똑같이 따라해보고, 과제도 했습니다. 과제할 때 처음엔 어떻게 하지 했는데, 앞 강의에서 알려주신 내용으로 해결이 되네요 ㅇ_ㅇ)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
이번에도 열심히 들었습니다! 항상 감사합니다! 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 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()
좋은 강의 늘 잘 듣고 있습니다. 감사합니다. 과제 완료! 한가지 궁금한게,, 조건식에서 단어가 동일한 경우 말고, 일부만 포함되도 실행하는 걸로 하려면 어떻게 해야 할까요? '남'뿐만 아니라, '남자' '끝남'과 같이 '남'이 포함되기만 해도 실행되는 것처럼 할려면여.. 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
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
완전 아무것도 모르고 엑셀이 좋아서 보기 시작했는데, 항상 감사드립니다. 늦게 발견해서 매일매일 보는데 너무 재밌습니다! 숙제는 겨우 했습니다 ㅠㅠ 포기할 뻔 했는데 매번 용기 주셔서 감사드립니다. 다른 분들과 다른 것 같은데 이렇게 해도 맞겠죠..? 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
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 철자가 틀린지도 모르고 한참 헤맸네요 강의 감사합니다
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
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
좋은 강의 감사드립니다! 과제 올려봅니다 ㅎㅎ 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
정말 훌륭한 강의입니다. 많이 배웁니다 감사합니다. range 함수 관련 질문이 있습니다. 기본문법이 range("A1") 이런식인가요? 그런데 어떻게 1을 대신하는 변수 (i=1)를 넣고 따옴표가 없이 range("A" & i) 가 가능한지요? range("A" & i & "") 이게 맞지 않나요 (따옴표로 마치는 부분) ,VBA에서 둘다로 해보니까 다 가능하더라고요..문법이 좀 blurry하지 않나 싶어서요..
range 는 빼고 안에 내용만 보고 말씀 드리겠습니다 A1 은 문자를 코드로 쓰기 위해서 큰따옴표로 "A1" 이라고 묶습니다 변수 i 는 큰따옴표로 묶지 않습니다 문자 A와 변수 i 를 연결하기 위해 "A"&i 라고 사용하는 것이고 "A"&i 와 "A1" 은 동일한 것입니다 추가로 "A"&i&"" 이것은 문자 A 와 변수 i 와 아무것도 아닌 ""공백을 연결 하는 것이니 이또한 A1 과 같은 뜻이 됩니다
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
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
@@excelloveman-3399 lngA = range("E1").end(xldown).row +1 lngB = range("e10000").end(xlup).row 이 공식은 행만 찾는 거 아닌가 해서요 열은 xfd나 알려주신 iv1로 해야하는 거 아닌가 해서요 row 만 있고 column이 없어서 의문이 드네요
과제 어려웠는데 완성해두고 보니 완전 뿌듯해요 ㅎㅎ 재미 있네요! :) 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
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
A 파일 sheet1의 그림 Pic1을 B파일 sheet1의 같은 위치에 Pic1을 복사하고 싶은데 Pic1을 잡는 함수가 어떤게 있어요? 인터넷을 다 뒤져도 그림파일을 엑셀의 셀에 불러다 놓는것만 있어서 컨닝을 할려고 해도 못하겠네요 좀 알려주세요 아직 vba강의는 잘 보고 있습니다. 수고하세요 ^^
1004런타임 오류가 발생하였습니다. 코드가 틀린게 없는것 같은데 처음부분중에서 전체복사연습이요.ㅎㅎ RANGE 메서드 ('GLOBAL'개체의)에서 오류가 발생하였다라는게 나오네요. 아직쳇방에 못들어가서 간단한거라 여기남겨봅니다. Sub test01() Range("F6").CurrentRegion.Copy Range("06").PasteSpecial
End Sub 코드보다 이렇게 수식으로 제공되서 나올때 모듈연결을 못하거나 해서 오류가 난다고 생각합니다. 그냥 새창열어서 거기다가 코드치는건 다해보고 있거든요. 그리고 lngr 이렇게 치는것과 lngR은 따로 대문자로 R을 치는건지 주석처럼 자동으로 그부분이 대문자로 변경이 되는건지 실행해보면 명령어 실행은 되는데 갑자기 궁금해져서 남깁니다.
영상 감사합니다 ㅎㅎ 과제완료요 여러가지방법이있군요.. 다른것도 보고 따라해봐야겠네요... 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
안녕하세요 엑사남입니다^^ 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 과제 관련 질문 있습니다 아래코딩에서 " 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 Sub 도저히 답이 안나와 다른분들꺼 참고해 가면서 나름 해결을 했는데요. 제 질문은 'Range("j7:K" & lngB).PasteSpecial xlPasteFormulas' 라고 표현한것은 j7 셀에서 k lngB(k18)셀까지 수식을 붙여넣겠다. 라는 의미로 넣은건데요.(다른 분들 과제 참조) 원래 k까지 큰따옴표로 막아주고 &표시 후 lngB 이런식으로 표기하는 건가요? 이게 표준인건지 궁금해서 여쭤봅니다!
과제 두가지로 해봤어요 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 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를 해서 총 열개수를 찾았습니다. 끝까지 하지 못한상태에서 중간중간 실행하면서 되는지 여부 확인하는데.... 오류가 나네여...;;; 뭐가 문제인지....ㅠㅠ 좀 알려주시면 안될까요? 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("A10000").end(xlup).row range("xfd").end(xlleft).column 이 공식 쓰고 안 쓰고 차이가 있을까요? 아직 초보지만... 고수가 되고 싶은 꿈이 있어서... .욕심이 많습니다
오늘도 복습 삼매경입니다. 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
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 답변이 가능합니다. 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
좋은 강의 감사합니다. 열심히 듣고있습니다. 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
수식만 복사에서 아래와 같이 코딩했는데 수식이 먹히지가 않아요 뭐가 문제 인가요? Sub cutFormula() Dim rowCount rowCount = Cells(Rows.Count, "f").End(xlUp).Row Range("K3:L3").Copy Range("K7:L" & rowCount).PasteSpecial xlPasteFormulas
숙제가 생각보다 어려워서 좀 걸렸지만 어떻게든 만들었습니다. 여기까지 올수 있게 해주셔서 감사합니다. 계속해서 포기하지않고 열심히 배울게요! 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
항상 잘보고 있습니다 ㅎㅎ 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
첫번째 행과 열을 찾는 방법 공유 드립니다 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
오늘도 감사합니다. ^^ 느리지만 꾸준히 잘 배우겠습니다. 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
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
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 유튜브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
안녕하세요 강의 관련 질문은 아래 주소의 오픈채팅방 이용 부탁드립니다. 파일이나 캡쳐본으로 서로 전달해야 빠른 풀이 및 이해가 가능합니드 제 강의를 듣는 구독자 분들이 VBA 학습을 위해 만든 방입니다. 입장 후 인사와 공지 준수는 필수 입니다^^ 학습 하시는데 많은 도움이 되실거에요. 브 '엑사남'의 Excel VBA 함께하기 open.kakao.com/o/glXWEB3b
선생님 강의너무감사합니다. 잘보고있습니다. 범위 구할때 예를 들면 Range("A" & i).Resize(1,7) 말고 다르게 하고 싶은데 Range("A" & i : "G" & i) 이렇게 하니까 안되더라구요... 밑에 댓글보고 Range("A" & i & ":G" & i) 이라고 알았습니다. 이해가 잘 안되서 일단 외웠습니다. 이렇게 쓰는 이유가 있나요?
Range("A1:G1") 로 써야 하는데 행번호인 숫자값을 변수로 받아서 사용하려면 큰 따옴표로 묶은 주소 값과 변수(i)를 & 기호로 묶어야 합니다 Range("A1:G1") 이 범위에서는 숫자 1 이 변수 i 로 사용되어야 하고 "A" & i & ":G" & i 이렇게 기존 범위 값은 큰따옴표로 묶고 변수값은 큰따옴표로 묶으면 그냥 텍스트 i 가 되기 때문에 큰따옴표로 묶지 않습니다 큰따옴표로 묶은값과 묶지 않은 변수를 연결하기 위해서 & 기호를 사용하는것이고요
하루에 하나이상 보면서 연습하고 있어요
엑사남님 말씀대로 조금씩 성장하고 있는거겠죠?
처음보다 익숙해져가는 느낌이에요
좋은 강의 감사합니다 ^^
여러강의를 전전하다가 드뎌 찾았네요
정말 핵심만 딱 너무좋아요
알려고 하지마라 나중에 알게된다
보통 막 용어부터 설명들어가고
리스트니 명령어니 하는데
그냥 딱 직관적이라 너무 좋아요
부담도 없구요
네네
포기만 안하면
다 알게 됩니다 ^^
감사합니다...오늘도 좋은 강의 잘 배우고 갑니다~~~^^
너무 쉽게 알려주셔서 재밌게 공부하고 있습니다.
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 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 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
잘 보고 있는데.. 볼륨 좀 맞춰주시면 좋겠습니다. 앞부분 엑셀을 포기하지 말아요만 엄청 크게 나와서요. 앞에 강의 볼 때 소리 잘 안 들려서 소리 키워놨다가 새 강의로 넘어오면서 소리 때문에 깜짝 놀랍니다.
앞부분 소리가 크고
본 강의가 작았나요?
불편한 부분 자세히 부탁드립니다
다음 강의에서는 반영할께요
감사합니다
혹시 강의를 보셨던 매체가 뭔가요
pc 스피커
pc 이어폰
모바일 스피커
모바일 이어폰
알면 도음 될거 같습니다
혹시 제가 이번에 마이크를 바꾸면서
다른 회차 강의와 차이가 많이 나서 그러신건지
같은 강의 내에서 차이가 심해서 불편했던건지
피드백 부탁드립니다
감사합니다
아 다시 읽어보니 이해되네요
불편드려 죄송해요
마이크랑 기타 환경이 바뀌어서 그부분까지 체크 못했습니다
알여주셔서 감사합니다
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
정석대로 잘 하셨습니다
포기하지 마시고 끝까지 전문가까지 가자고요
항상 쉽게 가르치는게 목적입니다
감사합니다
로그인 해서 댓글 처음 달아봅니다 VBA공부 중인데 정말 쉽고 유익하게 강의영상 올려주셔서 감사합니다 도움이 많이 됩니다
넵 감사합니다
조금 어려울때도 있을거에요
끝까지 포기마시고 천천히 한걸음씩
퐈이팅입니다
쵝오입니다. 너무 귀에 쏙쏙들어와요 좋은 강의 감사합니다. 검색으로 들어왔다가 지금 정주행중~
네 응원합니다
좋은 강의 감사드립니다.
미숙하지만 아래와 같이 과제 수행했습니다.
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
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 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
열심히 독학중입니다. 항상 좋은 설명 감사합니다.
네네 화이팅입니다
좋은 강의 감사합니다. 하나씩 따라 하고 있습니다. 수고하세요~
네 스트레스 받지말고 하나씩 하세요
중간에 조금 어려운 난관도 있겠으나
포기만 하지 않으시면 됩니다
매강의마다 알기쉽게 설명해 주셔서 잘보고 있습니다. 감사드립니다
네네 감사합니다.
강의 잘들었습니다ㅎㅎ 숙제있으니 정리가 더 잘되는 느낌이에요~!
이번에는 한번에 성공했습니다 !
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
Range("E" & i, "I" & i).PasteSpecial xlPasteFormats 이렇게하면 E행i열, I행 i열 딱 2개만 복붙되는거아닌가요? E열이랑 I열사이가 붙여넣기가 안되지않나요?
i 를 5라고 가정하고
"E" & i & ":H" & i ==> e5부터 h5
"E" & i & ",H" & i ==> e5셀 i5셀
혼자서는 과제물 해결이 안 되서, 댓글에 있는 완성된 코딩들을 참고했는데, 여기 코드가 가장 간결하더군요. 그리고 연속되는 셀을 선택할 때, Range("E" & i, "I" & i)와 같이 쉼표를 사용하든 Range("E" & i & ":I" & i)에서와 같이 콜론을 사용하든 모두 동일하게 작동된다는 사실도 확인했습니다.
감사합니다.
뒤늦게 영상을 찾아 공부중입니다 알기 쉬운 강의 감사합니다!
실무+간단한거 알려주셔서 감사해요~^^ 궁금하던 내용입니다.
네 궁금하셨다니 다행입니다
도움 되시길 바랍니다
잘 배웠습니다! 혼자도 해보고 다른분들것도 보면서 여러가지 해보니 재밌네요
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
여러가지 해보는게 빠른 길입니다. ^^
좋은 강의 감사해요!! 아직 제가 원하는 기능은 찾고 있는데 다 꿀정보네요 ㅎㅎ
저도 헤매다가 다른 분들 과제 보고 힌트 얻어서 다시 했네요. 감사합니다.
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
선생님
이번 강의도 정말 감사합니다.
잘배웠습니다. 다음 강의도 기대하겠습니다.
네네 감사합니다
좋은 강의 너무 감사드립니다!
이번 과제는 좀 어려워서 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 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의 함수를 가지고 오는데 무엇이 문제일까요?
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
오늘도 잘 봤습니다ㅎ
과제하러가보겠슴돠
네~~~
강의 항상 감사합니다. 코로나 조심하시고 항상 건강하시길 바랍니다. 알려주신 내용 똑같이 따라해보고, 과제도 했습니다. 과제할 때 처음엔 어떻게 하지 했는데, 앞 강의에서 알려주신 내용으로 해결이 되네요 ㅇ_ㅇ)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
네네 포기만 안하고 계속 반복입니다
퐈이팅입니다
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
이번에도 열심히 들었습니다!
항상 감사합니다!
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
열심히 듣는분 쵝오
@@excelloveman-3399 강의가 최고입니다!
내용 제미있습니다.....꾸준하게 공부해서 실무과정도 듣고싶습니다..그러나 천천히....감사합니다..
네 급하면 체합니다
적당히 꾸준하게 준비하겠습니다
퐈이팅입니다
안녕하세요. 그동안 조용히 댓글 안 달고 보다가 다른분들께서 과제한 거 올려주신게 도움이 많이 돼서 저도 공유하고자 합니다. 엑사남님 좋은 강의 항상 감사합니다.
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) = "남" 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()
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
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
완전 아무것도 모르고 엑셀이 좋아서 보기 시작했는데, 항상 감사드립니다.
늦게 발견해서 매일매일 보는데 너무 재밌습니다!
숙제는 겨우 했습니다 ㅠㅠ
포기할 뻔 했는데 매번 용기 주셔서 감사드립니다.
다른 분들과 다른 것 같은데 이렇게 해도 맞겠죠..?
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 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 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
손맛!
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 철자가 틀린지도 모르고 한참 헤맸네요
강의 감사합니다
댓글에서 여러 코드를 봤지만 이 코드가 제일 간단하고 깔끔한것 같네요.(군더더기가 없음)
b2자리에 counta로 반복횟수만 입력되어 있으면 작동도 잘되고 깔끔하게 잘 만드신 것 같습니다!!
감사합니다 ^^
네 감사합니다
좋은 영상 감사합니다. ★★★★★
복붙 4가지 종류 숙련되져서 필요시마다 써야겠어요~! 그나저나 저에겐 과제 어렵네요 ㅜㅜㅋㅋ
벌써 어려우면 안됩니다
릴렉스하시고 다시한번 해보세요
복사해서 붙여넣어라 라는 명령을 코드로 짜려니 처음에는 어려운게 당연합니다
코드도 언어입니다
시간에 순서에 맞게 말하는 방법을 배우신다거 생각하세요
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
오늘도 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
실행 전 백업을 습관화 하시는게 제일 좋습니다
undo 라고 방법은 있으나 이또한 코드을 만들어야 합니다
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
어렵지만 해보니 재밌네요!!!
좋은 강의 감사드립니다!
과제 올려봅니다 ㅎㅎ
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
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
강의 정말 감사합니다!!!!!!!!!
좋은영상 정말 감사합니다.
모든 강의를 마치고
회사에서 진행하는 반복업무들에 대해 적용해 보고 후기를 남기도록 하겠습니다.
진심으로 감사드립니다.
덕분에 공부 열심히 하고 있습니다~~!
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
정말 훌륭한 강의입니다. 많이 배웁니다 감사합니다. range 함수 관련 질문이 있습니다. 기본문법이 range("A1") 이런식인가요? 그런데 어떻게 1을 대신하는 변수 (i=1)를 넣고 따옴표가 없이 range("A" & i) 가 가능한지요? range("A" & i & "") 이게 맞지 않나요 (따옴표로 마치는 부분) ,VBA에서 둘다로 해보니까 다 가능하더라고요..문법이 좀 blurry하지 않나 싶어서요..
range 는 빼고 안에 내용만 보고 말씀 드리겠습니다
A1 은 문자를 코드로 쓰기 위해서
큰따옴표로 "A1" 이라고 묶습니다
변수 i 는 큰따옴표로 묶지 않습니다
문자 A와 변수 i 를 연결하기 위해
"A"&i 라고 사용하는 것이고
"A"&i 와 "A1" 은 동일한 것입니다
추가로 "A"&i&"" 이것은
문자 A 와 변수 i 와 아무것도 아닌 ""공백을 연결 하는 것이니 이또한 A1 과 같은 뜻이 됩니다
@@excelloveman-3399 상세하고 빠른, 친절한 답변 감사합니다!!
간신히 따라가면 잘 배우고 있습니다
근데 이번 과제물을 수행하면
처리속도가 느리던데 저만 이런건가요?
구문은 아래와 같습니다.
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 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
네 감사합니다
끝까지 포기만 하지 마세요
안녕하세요 붙여넣기 끝장내기 잘봤습니다
혹시 붙여넣기 한다음
다음줄부터 다시 붙여넣기 할수 있나요??
네 복사된 개체가 계속 그대로라면
가능합니다
엑사남ExcelLoveMan- 명령어나 방법을 알수 없나요?
선생님 영상보고 값만 복사하기 까지는 진행이 완벽하게 되었습니다 !
pastespecial 한칸띄우고 x치면 쭉 나올거에요
어디에서 한칸을 띄우고 x 쳐야하는지 ....
죄송해요 ㅠㅠ모르겠습니다
copy 이후
붙여넣기 할때
range("a1").pastespecial x
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
항상 양질의 강의 감사합니다!
과제입니다!
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
시작점을 찾아주는 센스 아주 좋습니다
코딩에 소질이 있으시네요 ^^
엑사남ExcelLoveMan- 감사합니다! 열심히 할게요
@@excelloveman-3399 lngA = range("E1").end(xldown).row +1
lngB = range("e10000").end(xlup).row
이 부분을 추가하면 어떤 점이 좋은 건지 궁금합니다~!! 어떤 센스인지 궁금하네요!!
네
우리가 분석 할 데이터가 항상 고정된 양이라면
필요 없습니다
마지막 행 열을 찾는 이유는
코드를 짜 놓고 새로운 데이터가 들어왔을때
자동으로 사용하기 위함입니다
@@excelloveman-3399 lngA = range("E1").end(xldown).row +1
lngB = range("e10000").end(xlup).row
이 공식은 행만 찾는 거 아닌가 해서요 열은 xfd나 알려주신 iv1로 해야하는 거 아닌가 해서요 row 만 있고 column이 없어서 의문이 드네요
궁금한게 자막이 항상 코딩하는 부분을 가리는데 일부러 저희가 안 보고 하라고 그 위치에 자막을 넣으시는건가요??
그건 아닙니다 ㅠㅠ
죄송해요
@@excelloveman-3399 아니 죄송까지야.. 그저 궁금해서 여쭤봤어요! 앞으로는 창을 좀 올려서 코딩이 보이게 부탁드릴게요!! 이해하기 쉽게 정말 자세히 알려주셔서 영상 잘 보고 있습니다!! 감사합니다:)
덕분에 열공하고 있습니다.
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 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 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 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
("E"&lngb) &":"& ....
잘보이게 구분하기 위한 이부준이 인상적이네요
저도 아직까지 사용해보지 않았는데
굿입니다요^^
for 문 사용할때 변수만
일단 변수와 차별화 시키면 더 좋을거 같아요
보통은
i, j, r, c 등으로 많이 사용합니다
@@excelloveman-3399 For 문 사용할때는 한글자 알파벳으로 많이 사용하고, 구문에서 짤때는(? - 뭐라고 해야할지모르겠어요 ;;) lng(알파벳) 형태를 쓰는 거라고 이해해도 되겠죠? 감사합니다!! :)
왜 자꾸 실패할까 하고 남의 코드를 자세히 들여다보니까. pastespecial 뒤에 xlpasteformats 사이에 콤마를찍지 않고 띄어쓰기를 해야하네요. 이거 코딩력 뿐만아니라 상당한 관찰력도 요하네요
반복숙달입니다
나중에는 점 안찍은데도 보입니다 ^^
절대 포기 마시고 파이팅입니다
(질문) 질문해도 되나요?ㅠ.ㅠ
수식 복사할 때 아래와 같이 하면 왜 안되는걸까요?
Sub test01()
Range("K3:L3").Copy
Range("k7").CurrentRegion.PasteSpecial xlPasteFormulas
End Sub
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
A 파일 sheet1의 그림 Pic1을 B파일 sheet1의 같은 위치에 Pic1을 복사하고 싶은데 Pic1을 잡는 함수가 어떤게 있어요?
인터넷을 다 뒤져도 그림파일을 엑셀의 셀에 불러다 놓는것만 있어서 컨닝을 할려고 해도 못하겠네요
좀 알려주세요
아직 vba강의는 잘 보고 있습니다.
수고하세요 ^^
이번과제 범위 설정하는게 되게 어려웠네요.. 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
1004런타임 오류가 발생하였습니다.
코드가 틀린게 없는것 같은데 처음부분중에서 전체복사연습이요.ㅎㅎ
RANGE 메서드 ('GLOBAL'개체의)에서 오류가 발생하였다라는게 나오네요.
아직쳇방에 못들어가서 간단한거라 여기남겨봅니다.
Sub test01()
Range("F6").CurrentRegion.Copy
Range("06").PasteSpecial
End Sub
코드보다 이렇게 수식으로 제공되서 나올때 모듈연결을 못하거나 해서 오류가 난다고 생각합니다.
그냥 새창열어서 거기다가 코드치는건 다해보고 있거든요.
그리고 lngr 이렇게 치는것과 lngR은 따로 대문자로 R을 치는건지 주석처럼 자동으로 그부분이 대문자로 변경이 되는건지
실행해보면 명령어 실행은 되는데 갑자기 궁금해져서 남깁니다.
영상 감사합니다 ㅎㅎ 과제완료요
여러가지방법이있군요.. 다른것도 보고 따라해봐야겠네요...
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
감사합니다. 한가지 질문 드려도 될까요? 유효성검사 목록박스를 선택하면 데이터가 바뀌는데 바뀌는 데이터들을 복사해서 붙이고 싶습니다. 자동으로 목록을 변형해가면서 다른 위치에 복사하는 방법을 간단하게라도 알려주시면 감사하겠습니다.
안녕하세요 엑사남입니다^^
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
그런데 엑사남님, range(XX).end(xltoleft).column은 열을 알파벳이 아닌 숫자로 반환하는데, 이 둘을 자유자재로 변환할 수 있는 방법은 없을까요? 3과 C가 매칭이되는 그런 함수...는 없을까요?
숙제 올릴려고 했는데 회사 PC가 DRM이 걸려 있어서 복사 붙여넣기가 안되네요~T.T
네네 하셨으면 된거죠^^
안녕하세요. 쉽게 가르쳐 주셔서 정말 감사합니다. 이번 과제를 따라 해보니 왼쪽 테두리 굵은 선이 나타나지 않는데요. 뭐가 잘못되어서 일까요?
어떻게 하셨는지를 몰라서... 알수가 없네요
강위 코딩 관련 문의는
카톡 오픈채팅방을 활용하시면 빠를거에요
카카오톡 오픈채팅을 시작해 보세요.
링크를 선택하면 카카오톡이 실행됩니다.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
안녕하세요 과제 관련 질문 있습니다
아래코딩에서 " 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
"F:F" 라고 하면 그냥 텍스트입니다
범위를 계산해야하기때문에
Counta(Range("F:F")) 로 하시면 됩니다
항상 유익한 강의에 초보자로서 감사함을 느끼고 있습니다. 질문이 간단하게 있습니다.
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 이런식으로 표기하는 건가요? 이게 표준인건지 궁금해서 여쭤봅니다!
표준방식은 Range("I7:K100") 이거고요
뒤에 100 이 고정이 아니고 가변이니
가변 값을 변수로 받아서 범위로 쓰기 위해서
Range("I7:K" & lngB) 로 쓰는거에요
상수와 변수를 연결할때
함수와 값을 연결할때
& 기호로 연결합니다
과제 두가지로 해봤어요
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 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강도 보고 숙제 바로 제출 하겠습니다 ㅎ
감사합니다
역시 우등생이십니다
제 강의 전에 조금 해보셨나요?
Range 에서 콤마를 사용하는건 알려드린적 없는데
하나를 알려드리면 둘을 사용하시는것 같아요
응원합니다
@@excelloveman-3399 vba는 처음입니다. cells도 써보고 여러가지 응용하면서 해보다가 쉼표 넣어서 해보니까 됬습니다.
얻어걸린거죠 ㅠㅠ 세시간 정도 걸린거 같아요 감사합니다 ㅎ
김또깡 장담하건데
이대로 끝까지 쭉 가시면
VBA 맘대로 주무르실 거에요
실무과정까지 끝까지 같이 가시죠 ^^
@@excelloveman-3399 감사합니다!!!! 스승님께 배워서 엑세남2가 되도록 노력하겠습니다 ㅎ
@@뽀리너죠 님 답에서 다 이해가 가는데 If Cells(i, 3).Value = "M" Then 이 부분이 이해가 안갑니다. 3이 뭘 의미 하는지? 그리고 "M" 을 "남" 이렇게 하면 안되나요?
먼저 b1칸에 =counta(e:e)+5 넣어서 숫자 18로 만들고
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
코드 작성하시면서 .CurrentRegion 같은 프로시저? 이거 선택할때 누르시는 버튼이 무엇인가요? 저는 엔터 누르면 다음줄로 넘어가는데 마우스로 클릭하시는것 같지는 않고... 선택하는 버튼이 따로 있는걸까요?
명령문 자동선택 말씀이라면
range("a1").cu...
누르면 나오는 자동 리스트를
방향키로 선택 후
tab 누르시면 됩니다
@@excelloveman-3399 감사합니다~! 질문하고나서 이것저것 눌러받는데 tab이 사용이 가능하더라구요~!! 빠른답변 감사합니당!
질문좀요~
강의 정말 잘 보고 있습니다. 마지막 과제 부분에서 엑사남님이 합계, 평균 부분과 성명~수학까지 한부분으로 나눠서 해야 한다고 하셔서 작성해봤는데.... 오류가 나서요~
이유를 잘 모르겠습니다.
참고로 강의에서 알려주신데로 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
딸 귀여워
제가 쓴 걸로 해 보고, 다른 분들이 올린 공식도 써보니 방법이 다양하네요 자기만의 방법이 있는 건가요?
그리고 range("A10000").end(xlup).row
range("xfd").end(xlleft).column
이 공식 쓰고 안 쓰고 차이가 있을까요? 아직 초보지만... 고수가 되고 싶은 꿈이 있어서... .욕심이 많습니다
네 당연합니다
저에게는 vba 활용 가장 많이 쓰는 기본을
배우시고 익숙해 지시면
여러 방법으로 같은 결과를 낼 수 있습니다
오늘도 복습 삼매경입니다.
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
VBE에서 [도구 - 옵션 - 편집기 형식]에서 글꼴변경은 되는데 글자크기는 변경해도 8 그대로 안바뀌네요... 부탁합니다.
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 답변이 가능합니다.
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
과제물 조건대로 나오게 & 과제물 처음과 동일하게 표가 나오도록 지우기
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
강의 잘 들었습니다!!
그런데 혹시 매크로를 실행시켰는데 잘못 실행되어서 매크로를 실행하기 이전의 상태로 자료를 되돌리고싶으면 어떻게 해야하는지 알 수 있을까요?
방법이 없어요 ^^
undo 라는 일반적인 방법이 있지만
이또한 이전 상황을 매크로로 만들어야 하는거라서
의미 없고요...
무조건 실행 전에는 저장을 생활화 하셔야 합니다
아니면
매크로 실행하는 구문의 제일 첫줄에
한번 저장하는 구문을 넣으시면 되겠죠
@@excelloveman-3399 아 그렇군요!
조언 감사합니다^^
한창 해메다가 정답을 찾았네요... ㅠㅠㅠ
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 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 cutFormula()
Dim rowCount
rowCount = Cells(Rows.Count, "f").End(xlUp).Row
Range("K3:L3").Copy
Range("K7:L" & rowCount).PasteSpecial xlPasteFormulas
End Sub
정상적으로 수식이 복사되어 있는데
계산이 안된거라면
계산 옵션이 자동인지 수동인지 확인해 보세요
@@excelloveman-3399 앗그러네요 옵션이 수동으로 되어있었어요 ^^ 답변 감사합니다.
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
안녕하세요 엑셀 VBA입문하던 중 필요한 기능이 있는데...도저히막혀서 문의 드립니다.
함수를 만들어서 조건에 따라 이름이 지정된 영역의 값을 복사해와서 함수를 입력한 셀이나 함수가 있는셀에 바로 오른쪽에 붙여놓도록 하고 싶습니다만...좋은방법이 있을까요?
직접 반드신 예제파일로
오픈채팅방에 공유해 보세요
입장하시면 공지 꼭 읽으시고요
많은 도움 되시길 바랍니다
카카오톡 오픈채팅을 시작해 보세요.
링크를 선택하면 카카오톡이 실행됩니다.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
숙제가 생각보다 어려워서 좀 걸렸지만 어떻게든 만들었습니다. 여기까지 올수 있게 해주셔서 감사합니다.
계속해서 포기하지않고 열심히 배울게요!
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_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 수업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
첫번째 행과 열을 찾는 방법 공유 드립니다
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
오늘도 감사합니다. ^^ 느리지만 꾸준히 잘 배우겠습니다.
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
실습파일 링크가 깨진 것 같아요ㅠㅠ
앗 지금 확인해 보겠습니다
수정했습니다
다시 받아보세요
감사합니다
@@excelloveman-3399잘되네요 감사합니다!
헿 수강 완료 했습니다!
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
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
오늘도 학습 잘 하였습니다.
구글 좌표 구현 부탁드려요
질문있어요ㅠㅠ 강의중 [수식만 복사]부분이 자꾸 에러창이 뜨네요
세번째줄에 자꾸 노랑색(에러)이뜨는데 강사님 하시는데로 그대로 했느네 왜 에러가 날까요?
예제다운 받아서 했고 counta 수식은B3에 있습니다.
Sub bokboot()
Range("K3:L3").Copy
Range("K7:L" & Range("B3")).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End Sub
안녕하세요
강의 관련 질문은 아래 주소의
오픈채팅방 이용 부탁드립니다.
파일이나 캡쳐본으로 서로 전달해야
빠른 풀이 및 이해가 가능합니드
제 강의를 듣는 구독자 분들이
VBA 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
유튜브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
질문있습니다 쌤
아래와 같이 코딩을 했습니다.
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 학습을 위해 만든 방입니다.
입장 후 인사와 공지 준수는 필수 입니다^^
학습 하시는데 많은 도움이 되실거에요.
브 '엑사남'의 Excel VBA 함께하기
open.kakao.com/o/glXWEB3b
선생님 강의너무감사합니다. 잘보고있습니다.
범위 구할때 예를 들면
Range("A" & i).Resize(1,7) 말고 다르게 하고 싶은데
Range("A" & i : "G" & i) 이렇게 하니까 안되더라구요... 밑에 댓글보고
Range("A" & i & ":G" & i) 이라고 알았습니다. 이해가 잘 안되서 일단 외웠습니다. 이렇게 쓰는 이유가 있나요?
Range("A1:G1") 로 써야 하는데
행번호인 숫자값을 변수로 받아서 사용하려면
큰 따옴표로 묶은 주소 값과 변수(i)를 & 기호로 묶어야 합니다
Range("A1:G1") 이 범위에서는 숫자 1 이 변수 i 로 사용되어야 하고
"A" & i & ":G" & i
이렇게 기존 범위 값은 큰따옴표로 묶고
변수값은 큰따옴표로 묶으면 그냥 텍스트 i 가 되기 때문에
큰따옴표로 묶지 않습니다
큰따옴표로 묶은값과 묶지 않은 변수를 연결하기 위해서 & 기호를 사용하는것이고요
하나하나 따라하니 재밌습니다. 강의가 끝내주네요.
Sub homework_man_woman()
Dim i As Long
Dim lngR As Long
lngR = Cells(2, 2)
For i = 7 To lngR
If Cells(i, 6) = Cells(2, 4) Then
Cells(2, 5).Resize(1, 5).Copy
Cells(i, 5).PasteSpecial xlPasteFormats
Cells(2, 10).Resize(1, 2).Copy
Cells(i, 10).Resize(1, 2).PasteSpecial
Else
Cells(3, 5).Resize(1, 5).Copy
Cells(i, 5).PasteSpecial xlPasteFormats
Cells(3, 10).Resize(1, 2).Copy
Cells(i, 10).Resize(1, 2).PasteSpecial
End If
Next i
End Sub