插入一行 n 次

Question

我有一个包含 10 列的 Excel 文件。在第 2、3、4 列中，我有一个数字或破折号。
如果这 3 个单元格的总和大于 1，我需要将整行替换为 n 行，其中只有一列的值为 1，但其他单元格保持不变。

Example
1 - -  #-> leave it as is
- 2 -  #-> replace that row with 2 rows : - 1 - ; - 1 -
2 - 1  #-> replace that row with 3 rows : 1 - - ; 1 - - ; - - 1;

我设法自下而上进行迭代，但我无法在内存中存储一​​行、对其进行操作并在下方插入。

Sub Test()      
    Dim rng As Range
    Dim count20, count40, count45, total, i As Integer
    
    Set rng = Range("A3", Range("A3").End(xlDown))
        
    For i = rng.Cells.count To 1 Step -1
        count20 = 0
        count40 = 0
        count45 = 0
        total = 0
            
        count20 = Cells(rng.Item(i).Row, 10).Value
        If count20 > 1 Then
            total = total + count20
        End If
            
        count40 = Cells(rng.Item(i).Row, 11).Value
        If count40 > 1 Then
            total = total + count40
        End If
            
        count45 = Cells(rng.Item(i).Row, 12).Value
        If count45 > 1 Then
            total = total + count45
        End If
            
        If total <> 0 Then
            MsgBox total
        End If
     
    Next i     
End Sub

Answer 1

编辑 2

我已根据您的最新评论提供了替代代码。它使用列 J-L (10-12) 作为要更改的数字单元格，并使用列 A-I (1-9) 和 M-AD (13-30) 作为要保留文本的单元格。和以前一样，假设从第 3 行开始的工作表 1，您可以将其更改为您需要的任何内容。

Option Explicit
Sub testJtoL()
Dim LastRow As Long, i As Long, j As Long, c As Long, _
insertR As Long, TopRow As Long, BottomRow As Long
Dim b As Range
Dim ws As Worksheet

'*** This code is based your values being in Columns J-L (10-12) in sheet 1 ***

'Set sheet 1 as ws
Set ws = Sheet1

'Sheet1 column J is used here to get your last row
LastRow = ws.Cells(Rows.Count, 10).End(xlUp).Row

'*** This code is based your values starting in Row 3 ***
For c = LastRow To 3 Step -1
    'Determine number of rows to insert based on sum of that row
    insertR = Application.WorksheetFunction.Sum(Range(Cells(c, 10), Cells(c, 12))) - 1
    If insertR = 0 Then GoTo skip
    
    'STEP 1 insert the correct number of rows
    With ws.Range(Cells(c + 1, 1), Cells(c + insertR, 30))
        .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End With
    
    'STEP 2 fill the values into the correct number of rows
    insertR = insertR + 1
    With ws.Range(Cells(c, 1), Cells(c, 30))
        .Resize(insertR, 30).Value = .Value
    End With
    
    TopRow = c
    If insertR = 0 And c = 3 Then
        BottomRow = c
            Else
            BottomRow = c + insertR - 1
    End If
    
    'STEP 3 replace all numbers with 1 or "-"
    'Replace numbers in column J
    If ws.Range(Cells(c, 10), Cells(c, 10)).Value = "-" Then GoTo SkipA
    i = ws.Range(Cells(c, 10), Cells(c, 10)).Value
    j = 1
    
    For Each b In ws.Range(Cells(TopRow, 10), Cells(BottomRow, 10))
    
    If j <= i Then
        b.Value = 1
        b.Offset(0, 1).Value = "-"
        b.Offset(0, 2).Value = "-"
            Else
            b.Value = "-"
    End If
    j = j + 1
    
    Next b
    
SkipA:
    'Replace numbers in column K
    j = 1
    For Each b In ws.Range(Cells(TopRow, 11), Cells(BottomRow, 11))
    If b.Value = "-" Then GoTo SkipB
    i = b.Value
    
    If j <= i Then
        b.Value = 1
        b.Offset(0, 1).Value = "-"
            Else
            b.Value = "-"
    End If
    j = j + 1
        
SkipB:
    Next b
    
    'Replace numbers in column L
    j = 1
    For Each b In ws.Range(Cells(TopRow, 12), Cells(BottomRow, 12))
    If b.Value = "-" Then GoTo SkipC
    i = b.Value
    
    If j <= i Then
        b.Value = 1
            Else
            b.Value = "-"
    End If
    j = j + 1
    
SkipC:
    Next b
    
skip:
Next c

End Sub