想要把 Excel 1.xlsx sheet1.range("A6:F6") 绝对值大的单元格，复制 到Excel 2.xlsx 的 C1不知怎么操作，请大神指教。谢谢。
Dim xlApp As EXCEL.Application
Dim xlBook As EXCEL.Workbook
Dim xlSheet As EXCEL.Worksheet

Dim xlxlApp As EXCEL.Application
Dim xlxlBook As EXCEL.Workbook
Dim xlxlSheet As EXCEL.Worksheet

Set xlBook = xlApp.Workbooks.Open("C:\Users\Huaguo\Desktop\Temp1\1.xlsx")
Set xlSheet = xlBook.Worksheets(1)
...
Set xlxlBook = xlApp.Workbooks.Open("C:\Users\Huaguo\Desktop\Temp1\2.xlsx")
Set xlxlSheet = xlxlBook.Worksheets(1)
...

求出指定区域里的最大值，写到C1就是了。
笨方法，对指定区域循环遍历。

函数 Max(A6:F6)

[此贴子已经被作者于2020-8-15 11:50编辑过]