Sub 获取数据()
Dim sh$, c, arr
sh = Sheets(1).[N2]
With Worksheets(sh).[J:Q]
Set c = .Find("应付账款总额")
arr = c.Offset(-1, -1).Resize(23, 5)
End With
Sheets(1).[N4].Resize(23, 5) = arr
End Sub
Sub 获取数据()
Dim sh$, c, arr
sh = Sheets(1).[N2]
With Worksheets(sh).[J:Q]
Set c = .Find("应付账款总额")
arr = c.Offset(-1, -1).Resize(23, 5)
End With
Sheets(1).[N4].Resize(23, 5) = arr
End Sub