|
こんにちは。
仕様が不明確でしたので、適当に書きました。
しかも、途中までです。全部書いても冗長かな、と。
変数jを使い方がいまいちな気がしますが、動けばいいかな、と。
Sub test()
Dim Wb1 As Workbook, Wb2 As Workbook, Wb3 As Workbook
Dim tmpArr As Variant
Dim i As Integer
Set Wb1 = Workbooks("11.xls")
Set Wb2 = Workbooks("22.xls")
Set Wb3 = Workbooks("33.xls")
j = 1
tmpArr = Wb1.ActiveSheet.UsedRange 'UsedRangeで配列に格納。
For i = LBound(tmpArr, 1) To UBound(tmpArr, 1)
If tmpArr(i, 1) = "@@@" Then
Wb3.ActiveSheet.Range("A" & j).Value = "@@@"
Wb3.ActiveSheet.Range("B" & j).Value = tmpArr(i, 2)
j = j + 1
End If
Next i
End Sub
|
|