VBA 表格的数据格式整理

On_fire

VBA 表格的数据格式整理

*

Sheet1是源资料,

每24列X25行, 是一张表格, 这张表格是变量

每张表格内的一个数据区( *每3~18行及18~23列* ), 可能有错位, 需要修正

*

代码逻辑如下,

1.      表格内的黄色区是标准/正确( *每3~18行及18~23列* )

2.      判断出每张表格内数据区是否有错位, 向上移了一行? (比如: 标蓝)

3.      同时修正, 把数据区向下移一行 ( 比如:标绿 )

*

模拟过程在Sheet1(2)

模拟结果在Sheet1(3)

*

恳请大神, 老师帮忙…谢谢!

liulang0808

Sub test()
    Application.ScreenUpdating = False
    For j = 2 To Cells(Rows.Count, 18).End(3).Row Step 25
        If Cells(j, 18) <> "" Then
            Cells(j, 18).Resize(16, 6).Cut Cells(j + 1, 18)
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

根据描述猜了一下

On_fire

liulang0808 发表于 2022-12-22 10:25
根据描述猜了一下

谢谢版主,
请看载图, 请问这个循环要怎么写?
我想这样写如下, 又不对, 有报错…
Arr = Activesheet.UsedRange
For i = ubound (arr) step 24

liulang0808

Sub test()
    Application.ScreenUpdating = False
    c = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Column
    For i = 18 To c Step 24
        For j = 2 To Cells(Rows.Count, i).End(3).Row Step 25
            If Cells(j, i) <> "" Then
                Cells(j, i).Resize(16, 6).Cut Cells(j + 1, i)
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。。。

On_fire

liulang0808 发表于 2022-12-22 11:26
供参考。。。。。。。

原来是这样子的, 感谢版主!