合并计算VBA代码

cxd1001

合并当前工作簿1-12月R1C1:R50C2数据，通过录制宏录制的合并计算的代码如下。
问题：数据源为固定路径的工作表单元格的引用，如何改成引用当前工作簿工作表的区域引用？目的是文件在不同的路径下都可以过行数据合并计算。


Sub 并51()


    Range("A1").Select
   Range("A2:*****") = ""
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]1月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]2月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]3月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]4月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]5月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]6月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]7月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]8月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]9月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]10月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]11月'!R1C1:R50C2", _
        "'C:\Users\cxd10\Desktop\[????????????.xlsm]12月'!R1C1:R50C2"), Function:=xlSum, _
        TopRow:=True, LeftColumn:=True, CreateLinks:=False
    Range("A1").Select
End Sub

lh123lh1234

引用当前工作簿工作表的区域引用？

cxd1001

lh123lh1234 发表于 2019-9-20 11:40
引用当前工作簿工作表的区域引用？

引用当前工作簿工作表1-12月的A1:B50

lh123lh1234

cxd1001 发表于 2019-9-20 11:42
引用当前工作簿工作表1-12月的A1:B50

吃个栗子，不好猜
区域里是路径？还是文件名？还是什么引用

cxd1001

lh123lh1234 发表于 2019-9-20 11:55
吃个栗子，不好猜
区域里是路径？还是文件名？还是什么引用

已上传图片，看一下，谢谢

moonlit123

1.      MyPath = ThisWorkbook.Path & ""   '这里最后的双引号里有一个斜线符号\，论坛code里看不到，\
   
2.      MyName = "文件.xlsm"                  '文件名
   
3. 
   
4. "'C:\Users\cxd10\Desktop\[????????????.xlsm]1月'!R1C1:R50C2",
   
5. '改为
   
6. MyPath & "[" & MyName & "]" & "1月'!R1C1:R50C2",
   
7. '不一定准确，毕竟是虚空猜想的代码，没实际运行过
   

复制代码

cxd1001

moonlit123 发表于 2019-9-20 12:44

，可以了，谢谢