VBA中这个字段是什么意思呀

yangbinluobo

汇总表中应该写入的行的位置
        .Range("A" & Hx).Resize(UBound(Arr), UBound(Arr, 2)) = Arr

我想要写入的位置前面加2行，改哪里？

yangbinluobo

求助呀，求助呀！:

yangbinluobo

'下面是汇总工作薄
      With Mb.Sheets(Shn)
        '如果汇总工作表的名称不是 tabale1，只需要将 shn 改成对应的名称即可
        '比如名称是 "已汇总" ，则代码是 with Mb.Sheets("已汇总")
        
        Hx = .Range("A65536").End(xlUp).Row + 1 '读取 汇总表中应该写入的行的位置
        .Range("A" & Hx).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
        '将数据写入
      End With

chart888

Hx = .Range("A65536").End(xlUp).Row + 1 改成
Hx = .Range("A65536").End(xlUp).Row + 3

砂海

加2行 是个什么意思.?

yangbinluobo

chart888 发表于 2017-8-17 22:38
Hx = .Range("A65536").End(xlUp).Row + 1 改成
Hx = .Range("A65536").End(xlUp).Row + 3

这样我汇总出来第二个表格和第一个表格的数据就会有一个空行

chart888

yangbinluobo 发表于 2017-8-17 22:45
这样我汇总出来第二个表格和第一个表格的数据就会有一个空行

那你想要的是什么样的？

苏子龙

  .Range("A" & Hx+2).Resize(UBound(Arr), UBound(Arr, 2)) = Arr
我猜是这样