这个右边的数据按2、 1、 2循环填入左边，有什么解决方案啊！

逸╄颩 · 发表于 2021-4-14 16:14

z9bhd · 发表于 2021-4-14 17:02

把附件传上来看看

逸╄颩 · 发表于 2021-4-15 14:07

附件已上传！！！！！

逸╄颩 · 发表于 2021-4-15 16:46

z9bhd 发表于 2021-4-14 17:02
把附件传上来看看

附件已发！

z9bhd · 发表于 2021-4-15 17:44

逸╄颩发表于 2021-4-15 14:07
附件已上传！！！！！

数据写在备注列供对比
Sub lx()
Dim r(), r1, r2, r3, i%, a%, b%
      a = Sheet1.Range("l4").End(xlDown).Row
      b = Sheet1.Range("n4").End(xlDown).Row
      r1 = Sheet1.Range("l4:l" & a)
      r2 = Sheet1.Range("n4:n" & b)
      r3 = Sheet1.Range("p4:p" & a)
      ReDim r(1 To 2 * UBound(r1) + UBound(r2), 1 To 1)
      For i = 1 To UBound(r2)
         r(5 * (i - 1) + 1, 1) = r1(2 * (i - 1) + 1, 1)
         r(5 * (i - 1) + 2, 1) = r1(2 * (i - 1) + 2, 1)
         r(5 * (i - 1) + 3, 1) = r2(i, 1)
         r(5 * (i - 1) + 4, 1) = r3(2 * (i - 1) + 1, 1)
         r(5 * (i - 1) + 5, 1) = r3(2 * (i - 1) + 2, 1)
      Next i
      [h7].Resize(UBound(r), 1) = r
End Sub

z9bhd · 发表于 2021-4-15 17:45

z9bhd 发表于 2021-4-15 17:44
数据写在备注列供对比
Sub lx()
Dim r(), r1, r2, r3, i%, a%, b%

水泥板块弯沉报告模板1.zip (125.25 KB, 下载次数: 3)

逸╄颩 · 发表于 2021-4-16 08:30

z9bhd 发表于 2021-4-15 17:45

，太感谢了！

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

[求助] 这个右边的数据按2、 1、 2循环填入左边，有什么解决方案啊！