| |
Jaka さん
ありがとうございます。
確かに、VBAドリル見ながらですので
自分もよく把握せずに作ってると思います・・。
コードの確認はよくわからなかったのですが
（すみません）
以下で作成してみたのですが不具合があるようででダメでした。
↓
Public Sub daburikakunin()
Const SHEET1 = "シート1"
Const SHEET2 = "シート2"
End Sub
Sub CheckData()
Dim srcWS As Worksheet
Set srcWS = Worksheets(SHEET1)
Dim dstWS As Worksheet
Set dstWS = Worksheets(SHEET2)
Dim i As Long
Dim lastRow As Long
Dim r As Range, f As Range
lastRow = dstWS.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastRow
If dstWS.Cells(i, "A").Value <> "" Then
Set r = srcWS.Columns(1).Find(what:=dstWS.Cells(i, "A").Value, lookat:=xlWhole)
If Not r Is Nothing Then
dstWS.Cells(i, "B").Value = r.AddressLocal(1, 6536)
Set f = r
Do While True
Set r = srcWS.Columns(1).FindNext(r)
If r.AddressLocal = f.AddressLocal Then Exit Do
dstWS.Cells(i, "B").Value = dstWS.Cells(i, "B").Value & "/" & r.AddressLocal(1, 6536)
Loop
End If
End If
Next
End Sub
|
|
kasa
- 10/4/15(木) 14:25 -
