|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 sj15627581616 于 2020-1-26 09:45 编辑
Sub Macro1()
'
' Macro1 Macro
' 宏由 X 录制,时间: 2020/01/25
'
Range("A1:A5").Select
Selection.Copy
Application.Left = -32000
Application.Top = -31925
Application.WindowState = xlMinimized
Application.Left = 0
Application.Top = 75
Application.WindowState = xlMaximized
Workbooks.Open Filename:="C:\Users\X\Desktop\匹配数据存放.xlsx", AddToMru:=True
Range("C1").Select
ActiveSheet.Paste
Application.RecentFiles.Add Name:="C:\Users\X\Desktop\匹配数据存放.xlsx"
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("新建 XLSX 工作表.xlsm").Activate
Application.DisplayAlerts = False
Application.DisplayAlerts = True
End Sub
以上是录制宏模拟获取的代码 Range("C1").Select部分要怎样修改才能变成该工作簿1行最大列
|
|