Question

我有一行（A7：O7），基于我的字典中的行数，我需要用与Row（A7：O7）相同的格式复制我心中的这么多行。我下面的代码只是复制单元格的颜色和数字的格式。有人可以帮忙吗？

Dim j As Integer
j = dRpt.Count
Set r = ThisWorkbook.Sheets("sht1").Range("a7")
Do
    Range(r.offset(1,0),r.offset(j,0).entirerow.insert
    Set r = Cells(r.Row + j + 1, 1)
    If r.Offset(1, 0) = "" Then

    End If
    Exit Do
Loop

Answer 1

这将在＆＃34; A7：O7＆＃34;下面插入j行列中的单元格＆＃34; A：O＆＃34;具有相同的格式＆＃34; A7：O7＆＃34;

j = Drpt.Count
With ThisWorkbook.Sheets("sht1").Range("a7:o7")
    .Offset(1).Resize(j).EntireRow.Insert xlShiftDown, .Offset(-1).Cells
End With

使用格式在VBA中动态插入行

1 个答案: