Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "目录汇总" Then
wc = Worksheets.Count
For i = 2 To wc
Range("A" & i) = Sheets(i).Name
ra = Cells(65536, 4).End(xlUp).Row
Range("B" & i) = Worksheets(i).Range("D" & ra)
Next i
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "目录汇总" Then
wc = Worksheets.Count
For i = 2 To wc
Range("A" & i) = Sheets(i).Name
ra = Sheets(i).Cells(65536, 4).End(xlUp).Row
Range("B" & i) = Worksheets(i).Range("D" & ra)
Next i
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "目录汇总" Then
wc = Worksheets.Count
For i = 2 To wc
Range("A" & i) = Sheets(i).Name
ra = Sheets(i).Cells(65536, 4).End(xlUp).Row
Range("B" & i) = Worksheets(i).Range("D" & ra)
Next i
End If
End Sub