|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(2002)
2. 윈도우즈의 버전(win2000)
3. CPU (III):500MH
4. RAM (256)
* 아래줄에 질문을 작성하세요 >>
안녕하세요 매크로에 대해서 전혀 문외한인데 꼭 해야만 하는 일이라...
질문을 드립니다.
1. 쉬트1에서 자료값이 있는 부분은 그대로 둔상태로 없는 부분에 대해서만 쉬트2에서 가져오려고 하는데 어떻게 해야하죠? 고수님들의 도움 부탁드립니다. 제가 프로그램을 짤 능력이 안되네여...ㅜㅜ
==============[백승일님 글에 대한 답변입니다]==============
안녕하세요? 백승일 님!
수식으로도 간단히 해결할 수 있는데요...
VBA를 원하셔서 간단한 예제를 만들어 드립니다.
Option Explicit
Sub dhTest()
Const Es As String = "MagicSheet & 엑사모 :: http://officedev.co.kr"
Dim c As Range
Dim rngDb As Range
Dim rngFind As Range
Dim rngTo As Range
Dim i As Integer
Set rngDb = Range("B3:B" & Range("B3").End(xlDown).Row)
With Worksheets("Sheet2")
Set rngTo = .Range("B3:B" & .Range("B3").End(xlDown).Row)
End With
For Each c In rngDb
Set rngFind = rngTo.Find(what:=c.Value, lookat:=xlWhole)
If rngFind Is Nothing Then
Else
For i = 1 To 8
With c.Offset(0, i)
If Len(.Value) = 0 Then
If Len(rngFind.Offset(0, i).Value) = 0 Then
Else
.Value = rngFind.Offset(0, i).Value
End If
Else
End If
End With
Next i
End If
Next c
End Sub
첨부한 파일을 참고하세요...
그럼...행운이 있으시길...!
|
|