大神出来帮帮忙，跨表引用问题

ExcHomer · 发表于 2018-10-10 15:05

小弟今天遇到个问题，有表1和表2，需要把表1的 a1:e6 5*6个数据复制到表2 aa1:ae12 ,每隔一行填写一个对应的数据，这个vba程序不会写，希望大佬帮帮忙，谢谢！

*************
小弟今天遇到个问题，有表1和表2，需要把表1的 a1:e6 30个数据复制到表2 aa1:ae12 ,每隔一行（偶数行）填写一个对应的数据，这个vba程序不会写，希望大佬帮帮忙，谢谢！

ExcHomer · 发表于 2018-10-10 15:13

是同一个工作簿的两个表

ExcHomer · 发表于 2018-10-10 15:25

上传图标，希望大佬帮我解决一下，谢谢！

Mapleaf12138 · 发表于 2018-10-10 15:27

两个思路
单行循环复制，循环step设置2即可

另一个就是直接复制过去以后再每行后面插入一个空白行

lsc900707 · 发表于 2018-10-10 15:39

ExcHomer 发表于 2018-10-10 15:25
上传图标，希望大佬帮我解决一下，谢谢！

Sub gj23w98()
Dim brr(1 To 999, 1 To 5)
arr = Sheet2.[a1].CurrentRegion
m = -1
For i = 1 To UBound(arr)
m = m + 2
For j = 1 To 5
brr(m, j) = arr(i, j + 1)
Next
Next
[i2].Resize(m, 5) = brr
End Sub

复制代码

lsc900707 · 发表于 2018-10-10 15:49

ExcHomer 发表于 2018-10-10 15:25
上传图标，希望大佬帮我解决一下，谢谢！

附件供参考：

ExcHomer · 发表于 2018-10-10 15:56

lsc900707 发表于 2018-10-10 15:49
附件供参考：

大佬，原谅我不太懂，能不能用循环嵌套的方法挨个填入数字，谢谢。

lsc900707 · 发表于 2018-10-10 17:05

ExcHomer 发表于 2018-10-10 15:56
大佬，原谅我不太懂，能不能用循环嵌套的方法挨个填入数字，谢谢。

那你等别人来帮你吧。

ExcHomer · 发表于 2018-10-12 21:58

lsc900707 发表于 2018-10-10 17:05
那你等别人来帮你吧。

已经解决，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 大神出来帮帮忙，跨表引用问题