多单元格多列跨表复制

maydbl

各位老师晚上好！白天也好！
1、sheet1的a1:d20是基本范围，a21:d40结构与a1:d20相同，20行一个循环，有n个循环。
2、需把sheet2的B、D列第二行起的数值单元格复制依次到sheet1的D、B列指定位置（见表内示意）。

谢谢！

砂海

如果 都是隔6行的话
b5   =INDIRECT("sheet2!D"&INT((ROW(A1)+13)/7))
选中 B5:B11 , 下拉

但你表中 B19 , B25 直接 是空5行 , 这样就不知道 规律了.

cutecpu

B1 公式:
=IF(
MOD(MOD(ROW(),20)-5,7),"",
INDEX(Sheet2!D:D,INT(ROW()/20)*3+INT(MOD(ROW(),20)/5)+1)
)

D1 公式:
=IF(
MOD(MOD(ROW(),20)-4,7),"",
INDEX(Sheet2!B:B,INT(ROW()/20)*3+INT(MOD(ROW()+1,20)/5)+1)
)

※如果有解決您的問題，再請將帖子設為[已解決]

祝順心，南無阿彌陀佛！

maydbl

感谢楼上2位的回复！sheet1的a1:d20是基本范围，a21:d40结构与a1:d20相同，20行一个循环，有n个循环。有个情况我忘了表述，对不起：绿色部分是其他内容。用公式法不行。

爱疯

Sub test()
    Dim i
    Sheets(2).Select
    i = Range("d65536").End(xlUp).Row - 1
    Call test2([b2].Resize(i).Value, Array(4, 11, 18), 2, 4)

    Sheets(2).Select
    Call test2([d2].Resize(i).Value, Array(5, 12, 19), 4, 2)
End Sub


'某列(源数据, 源位置, 源列,  目的列 )
Sub test2(B, C, c1, c2)
    Dim m, n, A, i, j, s, t
    m = 20
    n = Int(UBound(B) / 3) + 1
    Sheets(1).Select
    A = Cells(1, c2).Resize(m * n)
    For i = 1 To UBound(B)
        For j = 0 To UBound(C)
            s = s + 1
            t = (i - 1) * m + C(j)
            If s <= UBound(B) Then A(t, 1) = B(s, 1)
        Next j
    Next i
    Cells(1, c2).Resize(UBound(A)) = A
End Sub

maydbl

感谢 爱疯 超级版主！太感谢了！