黄色区域删除部分内容后，绿色区域自动排列。谢谢！

zyhui1961

黄色区域删除部分内容后，绿色区域自动排列。谢谢！

taller

zyhui1961

taller 发表于 2023-7-6 01:13

代码抄写完了（不知道有没有错的），不知道怎么用（提示“要求对象”），请老师指点！

Sub demo()
    Dim res()
    lstr = 1
    For i = 2 To 11
         lst = Cells(Rows.Count, i).End(xlUp).Row
         If lst > lstr Then lstr = lst
    Next
    arr = Range("B1:K" & lstr)
    ReDim res(1 To lstr * 3, 1 To 4)
    resr = 3
    For r = 4 To lst
         If arr(r, 1) <> "" Then
            resr = r + 1
            cnt = e
         Else
             For c = 2 To 10
                 If arr(r, c) <> "" Then
                     cnt = cnt + 1
                     res(resr, cnt) = arr(r.c)
                     res(resr + 1, cnt) = arr(r + 1, c)
                     If cnt = 4 Then
                         resr = resr + 2
                         cnt = e
                     End If
                 End If
                Next
                r = 1
            End If
    Next
    Range("U1").Resize(resr, 4).Value = res()
End Sub

shiruiqiang

大哥，cnt = 0怎么抄成cnt = e?

sdytsxd991122

taller 发表于 2023-7-6 01:13

鄂龙蒙

黄色区域删除部分内容后，绿色区域自动排列。.rar (30.33 KB, 下载次数: 6)

2023-7-6 09:28 上传

点击文件名下载附件

taller

sdytsxd991122 发表于 2023-7-6 08:51

笔误，是 lstr

zyhui1961

sdytsxd991122 发表于 2023-7-6 08:51

“要求对象”怎么处理？谢谢！

sdytsxd991122

zyhui1961 发表于 2023-7-6 13:12
“要求对象”怎么处理？谢谢！

这里不是点.是逗号，

LIUZHU

JSA的版本，参与下