使用格式化在VBA中dynamic插入行

我有一个行（A7：O7），根据我的字典中的行数，我需要用与行（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

这将在列“A：O”具有相同格式“A7：O7”的单元格下插入j行“A7：O7”

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