|
列検索を列を変化させながら行おうとしていますが、列の変化がうまく
対応できていません。下記についてご指導ください。
よろしくお願いします。
Sub 列検索でデータを取り込む()
Dim i As Integer
Dim j As Integer
Dim h As Integer
Dim mysheet1 As String
Dim mysheet2 As String
mysheet1 = "sheet1"
mysheet2 = "sheet2"
i = 3
h = 1
With Worksheets(mysheet1)
Worksheets(mysheet2).Select
Do While Worksheets(シート名1).Cells(i, 1) <> ""
For j = 5 To 38 Step 3
Worksheets(mysheet2).Select
Columns(h).Find(Worksheets(シート名1).Cells(i, 1).Value).Select
'1列置きに検索 ここのhが対応しない
Sheets(シート名1).Cells(h, j).Value = ActiveCell.Offset(0, 1).Value
h = h + 2
Next j
i = i + 1
Loop
End With
End Sub
|
|