部分表格移动，求助，求助……

cyq4896 · 发表于 2023-7-15 08:48

请试试
Sub test()
Worksheets("发货分析").Cells.Copy Sheets("结果").[a1]
arr = Sheet1.UsedRange
For j = 2 To UBound(arr)
If arr(j, 1) = "总计" Then
      For i = 6 To 14 Step 4
         Cells(j - 5, i).Resize(6, 4).Copy Cells(j - 5, i - 4)
      Next
         Cells(j - 5, i - 4).Resize(6, 4) = ""
End If
Next
End Sub

cyq4896 · 发表于 2023-7-15 16:25

代码优化....

zerada · 发表于 2023-7-15 17:17

cyq4896 发表于 2023-7-15 16:25
代码优化....

可以实现预期功能，但是有一个小问题，能否将数据上方的年份和月份一起移动呢，就是“2行、13行、25行和37行”，同时A列和R列又不受影响，麻烦了。谢谢

cyq4896 · 发表于 2023-7-15 20:23

zerada 发表于 2023-7-15 17:17
可以实现预期功能，但是有一个小问题，能否将数据上方的年份和月份一起移动呢，就是“2行、13行、25行和 ...

请试一试吧

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

[求助] 部分表格移动，求助，求助……

评分