随笔分类 - Excel
摘要:Sub CopyFilesToSheetsFromFolder() Dim selectedFile As Variant Dim targetWorkbook As Workbook Dim sourceWorkbook As Workbook Dim ws As Worksheet Dim fs
阅读全文
摘要:=XLOOKUP(A2,INDIRECT("Sheet1!"&VLOOKUP(MATCH("公司代码",Sheet1!1:1),Sheet1!S:T,2,0)&":"&VLOOKUP(MATCH("公司代码",Sheet1!1:1),Sheet1!S:T,2,0)),Sheet1!I:I,,0)
阅读全文
摘要:Public Function nihao() As String Application.ScreenUpdating = False '防止宏运行时屏幕抖动 Sheets("Sheet2").Activate Sheets("Sheet2").Select '选择Sheet1 Range("B1
阅读全文

浙公网安备 33010602011771号