用VBA实现数据保存，将sheet1制定数据保存到sheet2，每次保存后下移一行，

2391815588

用VBA实现数据保存，将sheet1制定数据保存到sheet2，每次保存后下移一行，然后清除sheet1数据。谢谢

2391815588

那位大师帮下忙啊

hesheng2266

附件无法解压

2391815588

hesheng2266 发表于 2019-3-7 11:27
附件无法解压

补发附件，谢谢

liangmutou

见代码：
Sub 按钮1_Click()
  Dim ar(), br()
  With Sheet1
    h = .[b65536].End(3).Row
    ar = .Range("b2:h" & h).Value
    .Range("c2,e2,b2:h" & h).ClearContents
  End With
  With Sheet2
    ReDim br(1 To h - 3, 1 To 10)
    For i = 4 To h - 1
      br(i - 3, 1) = ar(1, 2): br(i - 3, 2) = ar(i, 1)
      br(i - 3, 3) = ar(i, 2): br(i - 3, 4) = ar(i, 3)
      br(i - 3, 5) = ar(i, 4): br(i - 3, 6) = ar(i, 5)
      br(i - 3, 7) = ar(i, 6): br(i - 3, 8) = ar(i, 7)
      br(i - 3, 9) = "": br(i - 3, 10) = ar(1, 4)
    Next i
    .Range("a65536").End(3).Offset(1, 0).Resize(UBound(br), UBound(br, 2)) = br
  End With
End Sub
因吃不准运费是取哪个数据，所以为空，自己加上去