VBA |使用VBA添加部分行

-1

我有一個井和一系列井產量數據列表。我正在設置數據，以便它代表相對年份的相對時間。VBA |使用VBA添加部分行

例如：我有幸福感的第1天開始，但還有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

來源

2017-06-01 Landon Wright

對不起，你是什麼意思通過「...汽車空間爲我生產」？你的代碼是否做你想要的，是否錯誤，......它在做什麼？ – BruceWayne

@BruceWayne我的歉意。我有大約1000口井加載到excel文件中。我有一個包含所有生產數據的單獨選項卡，並且希望自動使用此VBA公式。由於生產日期各不相同，我希望生產能夠在真正的日期與新頁面保持一致。我寫的代碼做了我想要的，但我希望它自動發生，所以我不需要複製並過去每個井。 –

你能多解釋一下嗎？ –

不能確定這是否正常工作，現在我看它，但嘗試一下，讓我知道在哪裏/如果它出錯：

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

來源

2017-06-01 22:40:40 BruceWayne

非常感謝你，我的工作原理是如何實現的 - 我原來的問題缺乏清晰的道歉。 –

@LandonWright如果它有效，你介意將它標記爲答案嗎？（點擊帖子左邊的複選標記，按上/下箭頭） – BruceWayne

我做到了。謝謝你的幫助！ –

VBA |使用VBA添加部分行

回答

相關問題