VBA |使用VBA添加部分行

Question

我有一份井列表和几份油井生产数据清单。我正在尝试设置数据，以便它代表一年中的相对时间。

例如： 我在第1天开始使用A井，但是B在第6天开始。我正在尝试找出一个基于延迟标量自动为我生产空间的宏：X1 = 5天。

有没有办法用VBA代码实现这一目标？

 Sub InsertAttempt()
    '
        Range("F3:H7").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("I3:K12").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("L3:N17").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End Sub​

Answer 1

不确定这是否有效，现在我看一下，但尝试一下，让我知道哪里/是否出错：

Sub InsertAttempt()
Dim lastColCell As Range
Set lastColCell = Cells(1, Columns.Count).End(xlToLeft)

Dim i As Long, k As Long
k = 0
For i = 6 To lastColCell.Column
    Range(Cells(3, i), Cells(7 + k, i + 2)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    k = k + 5
    i = i + 2
Next i
End Sub