[已解决]求助各位老师帮忙改一句代码，关于复制后从指定单元格显示

xiaokev9

帮忙看下这几句，本身是从别的几个工作簿从B4到V列，把数据复制到另一个工作表中，这段语句执行后，复制结果从B2开始显示，我要改成从B5开始显示，请教要怎么改。谢谢各位老师

  With WK.Sheets(.ListItems(i).SubItems(1))
            .Range("b4"  & ":v" & .Range("b65536").End(3).Row).Copy ThisWorkbook.Sheets("1").Range("b65536").End(3)(2)
End With

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-28 12:39

xiaokev9 发表于 2013-6-28 12:11
我是参考这个来做的，就是要改成合并后的数据，从B5单元格开始显示。

1. .Range("A" & TextBox1 + 1 & ":Z" & .Range("A65536").End(3).Row).Copy ThisWorkbook.Sheets(1).Range("A65536").End(3)(IIf(I = 1, 5, 1))

复制代码

跳转到最佳答案楼层

爱疯

With WK.Sheets(.ListItems(i).SubItems(1))
            .Range("b4"  & ":v" & .Range("b65536").End(3).Row).Copy ThisWorkbook.Sheets("1").Range("b65536").End(3)(5)
End With

这样么

1032446692

仅此一句   不好修改

xiaokev9

.Range("b4"  & ":v" & .Range("b65536").End(3).Row).Copy ThisWorkbook.Sheets("1").Range("b65536").End(3)(5)

这样改不行，因为是多个工作簿合并，下移4行以后，每个表的数据都下移了

xiaokev9

我是参考这个来做的，就是要改成合并后的数据，从B5单元格开始显示。

那么的帅

xiaokev9 发表于 2013-6-28 12:11
我是参考这个来做的，就是要改成合并后的数据，从B5单元格开始显示。

1. .Range("A" & TextBox1 + 1 & ":Z" & .Range("A65536").End(3).Row).Copy ThisWorkbook.Sheets(1).Range("A65536").End(3)(IIf(I = 1, 5, 1))

复制代码