可以直接用的Excel 宏定义-1

Sub test1()
Dim i As Integer
Dim j As Integer

i = 1
j = 1

my_string = "偏移地址"

Dim temp1 As String
Dim temp2 As Integer

Rem 将b 到b16的单元格value 循环赋值给rag;
For Each rag In [b1:b6]
     ListTableStr = rag.Value   
     Index = InStr(my_string, ListTableStr)
     If Index > 0 Then

    Cells(i, 3) = Cells(i, 4)              
        i = i + 1

     End If
Next
End Sub