VBA - 插入行基于具有数据的相邻单元的计数

Question

这是我的情景： 从A到J的10列， 100行。每行可以包含1到10个条目。

我需要计算每行中包含数据的单元格数量，并在刚刚计算的行下方插入相同数量的行。

EX：第1行在A-D列中有条目，然后我需要在第1行下面插入4行。 EX2：第20行在A-G列中有条目，然后我需要在第20行下面插入7行

任何帮助都非常适合

Answer 1

这不是一个完整的答案，但希望它会把你推向正确的方向（我自己编程很新）。

Dim RowNum as integer
Dim ColNum as integer
Dim NumRowsToInsert as integer


For RowNum=100 to 1
    NumRowsToInsert=0
    For ColNum=1 to 10
        If cell  has value, then
        NumRowsToInsert=NumRowsToInsert+1
        End if
    Next ColNum    
    insert coding to insert "NumRowsToInsert" rows below row "RowNum" here
Next RowNum

这个逻辑对你有用。但是你需要修改编码。