|
こんにちは。かみちゃん です。
>>いずれにしても、Findメソッドをヘルプで調べてみるといいかもしれません。
>>コードの使用例とともに載っています。
>参考に見てみます。また何かありましたらお願いします。。。
とりあえず、こんな感じになるかと思います。
Option Explicit
Sub Macro1128()
Dim c As Range
Dim FirstAddress As String
Dim RowNo As Integer
RowNo = 2
'Sheet1のC4からC100に商品名が記述されている場合
With Worksheets("Sheet1128_1").Range("C3:C100")
'「バナナ」という値を部分一致で検索する。
Set c = .Find("バナナ", LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
'検索値が見つかったらSheet2の2(B)列目に順番にコピーする
c.Copy Destination:=Sheets("Sheet1128_2").Cells(RowNo, 2)
RowNo = RowNo + 1
'次を検索する。
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
End Sub
でも、よく考えたら、オートフィルタやフィルタオプションでもできそうですね。
これは、マクロの記録をするだけでできると思います。
|
|