VBA - 在每次更改值後，複製6行並使用公式插入

僅適用於論壇，無VBA體驗。VBA - 在每次更改值後，複製6行並使用公式插入

我不是所有人都熟悉的術語，所以請原諒我，如果我在這裏使用一些不正確的語言......我開始尋找VBA代碼昨天運氣好但沒有什麼我需要，所以我希望有人出去可以教育我。我想運行一個宏，它會自動從我的模板工作表中以公式和條件格式複製6個連續的行，然後在每次更改值後（特別是在每次更改日期後）完整地插入所有公式和格式。到目前爲止，我可以使用下面的代碼，然後過濾爲空白，然後手動粘貼單元格，但沒有任何代碼複製和插入行更好。任何幫助將非常感謝，我可以張貼表，如果需要的話。提前致謝！

Sub InsertRowAtChangeInValue() 

    Dim lRow As Long 

    For lRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row To 2 Step -1 
     If Cells(lRow, "B") <> Cells(lRow - 1, "B") Then 
      Rows(lRow).EntireRow.Insert 
      Rows(lRow).EntireRow.Insert 
      Rows(lRow).EntireRow.Insert 
      Rows(lRow).EntireRow.Insert 
      Rows(lRow).EntireRow.Insert 
      Rows(lRow).EntireRow.Insert 
     End If 
    Next lRow 
End Sub

來源

2014-10-02 Chase Hammer

究竟如何是價值（「日期」）改變？僅供參考 - 開始熟悉VBA的好方法是記錄宏並查看爲您生成的代碼。它不會很漂亮，並且不會使用最佳實踐，但會讓您瞭解VBA的工作原理。更好的方法是在錄製時打開工作表旁邊的模塊，以便在更改工作表時查看代碼。 – 2014-10-02 18:26:31

我會嘗試，謝謝...基本上，我有數百行顯示日期排序的日程安排，有時20個作業（20個連續行）的數據將有相同的日期，所以在每個日期之後，我總計爲每種類型的工作和其他公式提供我需要的每日數字。 – 2014-10-03 06:21:01

張貼您的工作表，如果可能的話清楚地說明您的要求。 – ZAT 2014-10-03 20:15:16

我不知道如何刪除這一點，但我能得到的一切使用工作如下：

子InsertRowAtChangeInValue（）

Sheets("dfw production schedule").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Current").Select 
Range("A2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Range("A2").Select 

Dim lRow As Long 

For lRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row To 2 Step -1 
    If Cells(lRow, "B") <> Cells(lRow - 1, "B") Then 
     Sheets("Template").Select 
     Rows("2:7").Select 
     Selection.Copy 
      Sheets("Current").Select 
      Rows(lRow).EntireRow.Insert 
    End If 
Next lRow

末次

來源

2014-10-06 15:07:13

VBA - 在每次更改值後，複製6行並使用公式插入

回答

相關問題