跨工作表提取数据

lsc900707

jackyava 发表于 2017-3-4 16:13
跨表会，就是复制之前清空目标单元格不懂，现在学习了

Sub lsc()
     Dim arr
     arr = Sheets("Sheet2").[r2].CurrentRegion.Value
     For i = 1 To UBound(arr)
         If arr(i, 1) <> 0 Then k = k + 1
         For j = 1 To UBound(arr, 2)
             arr(k, j) = arr(i, j)
        Next
     Next
     [a26:c5000].ClearContents
     [a26].Resize(k, UBound(arr, 2)) = arr
End Sub

jackyava

lsc900707 发表于 2017-3-4 16:44
Sub lsc()
     Dim arr
     arr = Sheets("Sheet2").[r2].CurrentRegion.Value

  [a26:c5000].ClearContents
我把这段代码放到最前面了，可能就错在这了，多谢老师指点

lsc900707

jackyava 发表于 2017-3-4 17:13
[a26:c5000].ClearContents
我把这段代码放到最前面了，可能就错在这了，多谢老师指点

这句放前面也应该可以的呀，只是按钮也要在这个工作表。

jjmysjg

留个记号，谢谢

jiminyanyan

lsc900707 发表于 2017-3-3 08:25
EH中级了吧，简单的跨表复制应该不难呀。

有的人光问问题都能到侠圣……。

lsc900707

jiminyanyan 发表于 2017-3-5 09:38
有的人光问问题都能到侠圣……。

也是哈，不过那毕竟是极个别的。