| |
▼伊藤 さん：
こんにちは！
>全ての行に顧客名、住所を貼り付けたいのです。
これでしたら
>Exit For
を取り除いてあげればいいと思います。
ただ、かなりの量の行数ですと処理時間が長くなってしまいますが。
行数はたくさんありますか？
ちなみに余計なことかもしれませんが、このようにすると
コードがみやすくなるかもしれません。
こちらは参考までに。
Dim ws1 As Worksheet
Dim ws2 As Worksheet
ws1 = Sheets("補助１")
ws2 = Sheets("補助２")
count = 0
s1max = ws1.Range("A" & ws1.Rows.count).End(xlUp).Row
s2max = ws2.Range("A" & ws2.Rows.count).End(xlUp).Row
For i = 2 To s2max
For j = 2 To s1max
If ws1.Cells(j, 2).Value = ws2.Cells(i, 2).Value Then
count = count + 1
ws2.Range(ws2.Cells(i, 3), ws2.Cells(i, 4)).Copy
ws1.Cells(j, 6).PasteSpecial Paste:=xlPasteValues
'Exit For コメントにしてあります
End If
Next j
Next i
|
|
にぃ
- 08/11/13(木) 11:02 -
