Excel VBA循環根據單元值插入行

-1

A   B 
Type 15 5 
Type 2  7 
Type 3  9

我需要創建一個循環，即開始於B1和插入一個編號基於B.

的單元值，我發現下面的代碼行，但它不循環，以及i需要它檢查的下一個單元是第一個單元格（5）+ 1的結果，以便它是正確的。

結果應該是：提前

A   B 
Type 1  5 


Type 2  7 





Type 3  9 

etc.

謝謝！

來源

2017-04-03 Checkmate

哪裏是你的代碼？ – Fairy

我們看不到您提及的代碼。另外，如果列A將具有以'Type'和1,2,3等開頭的值，那麼爲什麼要使用VBA，您可以簡單地使用公式？ – ManishChristian

嘗試截取輸入和結果，以便明確你的意思。關於代碼，我不認爲需要再次提到我們看不到它。 – Masoud

我首先搞砸了這個問題，但是我找到了答案。

請參閱下文。

Sub InsertRowsIf() 
Dim lr As Long, R As Range, i As Long 
lr = Range("B" & Rows.Count).End(xlUp).Row 
Set R = Range("B1", "B" & lr) 
Application.ScreenUpdating = False 
For i = R.Rows.Count To 1 Step -1 
If IsNumeric(R.Cells(i, 1).Value) And Not IsEmpty(R.Cells(i, 1)) Then 
    R.Cells(i, 1).Offset(1, 0).Resize(R.Cells(i, 1).Value).EntireRow.Insert 
End If 
Next i

Application.ScreenUpdating =真結束小組

來源

2017-04-05 04:14:29 Checkmate

Excel VBA循環根據單元值插入行

回答

相關問題