如何在值之後插入新行不重複對方的VBA代碼？

我有類似的標號列：如何在值之後插入新行不重複對方的VBA代碼？

，我需要寫檢測到「77」 + SomeNumber啓動時的代碼。並在新號碼之間插入空行。

我應該使用什麼命令？

來源

2016-12-09 Katariina Prusakova

範圍（」「）.EntireRow.Insert – Andreas

'行（x）.Insert Shift：= xlDown'其中'x'是行號。你可以澄清這一行：**「檢測何時77 + SomeNumber開始」** –

看看http://stackoverflow.com/questions/15417544/how-to-automatically-insert-a-blank-row-after-a數據組///只是使用左（Cells（iRow + 1，iCol），2）<> Left（Cells（iRow，iCol），2）instead – user2284877

嘗試以下：

Sub InsertRow() 

Dim i As Long 
Dim n As Long 

n = Cells(Rows.Count, 1).End(xlUp).Row 

For i = 1 To n 
    If Left(Cells(i, 1), 2) = 77 Then 
     Cells(i + 1, 1).EntireRow.Insert 
    End If 
Next i 

End Sub

與在具有主號碼的列替換1 n=...取代cells(i,1)和for i =1與相應的行在:)

開始

來源

2016-12-09 11:43:14 user1

這對你有幫助嗎？ – user1

如何在值之後插入新行不重複對方的VBA代碼？

回答

相關問題