大神们求助啊，帮忙写个宏

跨工作薄？还是在同一个工作薄,不同的工作表里

1

Sub aa()
Dim a As Integer
a = 1
'Debug.Print a & a & a
For i = 0 To 7
Debug.Print a + i & a + i & a + i
Next
For j = 2 To 14
For i = 0 To 7
ThisWorkbook.Sheets(1).Cells(i + 1, j) = a + i & a + i & a + i
Next
Next
Dim bpath As String
Dim eApp As Excel.Application
Dim eb As Excel.Workbook
bpath = "C:\Users\Whr\Desktop\vba try\two.xls"
Set eApp = CreateObject("Excel.Application")
Set eb = eApp.Workbooks.Open(bpath)
eApp.ScreenUpdating = False
eApp.Application.Visible = False
Debug.Print eb.Sheets(1).Cells(1, 1).Value
For i = 1 To 100
If ThisWorkbook.Sheets(1).Cells(i, 1).Value = True Then
Debug.Print i
For j = 2 To 14
eb.Sheets(1).Cells(2, j).Value = ThisWorkbook.Sheets(1).Cells(i, j).Value
Next
End If
Next
eb.Save
eb.Close
eApp.Quit
Set eb = Nothing
Set eApp = Nothing
End Sub

vlookup函数就好了，能用函数就别用代码