|
▼IROC さん:
>列はたくさんあるのでしょう?
>
>C列をキーに、A列とB列から同じものを探せばよいのですか?
はいそうです。C列にあるデータをキーにして
複数列にあるデータの中から検索し、
そのデータを削除したいのです。
それで最初のマクロに戻るんですけど、
Private Sub CommandButton1_Click()
Dim touroku_Ad As String
Dim sousin_Ad As String
Dim Sheet_obj1 As Worksheet
Dim search_res As Integer
Sheet1.Select
Set Sheet_obj1 = ActiveSheet
touroku_Ad = Sheet_obj1.Cells(2, 4)←リストAのアドレスを1つ取得
Sheet_obj1.Range(Selection, Selection.End(xlDown)).Select←リストBの範囲を選択
search_res = Macro3(touroku_Ad)
End Sub
Function Macro3(touroku_Ad As String) As Integer
Dim adress As String
adress = touroku_Ad
Selection.Find(What:=touroku_Ad, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
End Function
というようにして、後はmainのPrivate Sub CommandButton1_Click()
の中で、同じ処理をループすればよいのかなぁ?と思ってるんですけど…
どうなのでしょうか?
|
|