|
▼超初心者 さん:
ponponです。こんばんは。ヘルプでFindNextをしらべてください。
A列で検索しています。
>このマクロをデータのまで最後まで(値は変動する)
>ループさせるには、どうしたら良いでしょうか?
Sub TEST()
Dim myRng As Range
Dim myfirstAdd As String
With Sheets("TEST").Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
'A列のデータに対して検索
Set myRng = .Find(What:="XXX*")
If Not myRng Is Nothing Then
myfirstAdd = myRng.Address
Do
myRng.End(xlToRight).Offset(0, 1).FormulaR1C1 = "=((rc[-1]*rc[-2])-((rc[-1]*rc[-2])*2))"
'データの入っている一番右のその一つ横の列に
Set myRng = .FindNext(after:=myRng) '次の検索
Loop Until myRng.Address = myfirstAdd '一番はじめの検索結果に戻るまで
Else
MsgBox "データがありません。"
End If
End With
End Sub
|
|