使用VBA

Question

添加新的行中的excel我有包含以下文本（d＃）行的片材：

• D1
• D2
• D3

我需要在最後一個條目「D3」下添加一個新的行「D4」（將下一個整數附加到字母D）。當然，下一次新條目將是「D5」等...... 如何使用VBA腳本或宏來做到這一點？

Answer 1

在Column d輸入下列工作表式並將其擴展到整個區域：

="D" & ROW() 

如顯示在下面的代碼段，其與工作表式填充Range("D1:D20")可以將其通過Excel的VBA宏自動化：

Range("D1:D20").Formula = "= ""D"" & Row()" 

對於您的特定任務，您可以考慮使用宏記錄器，然後「擦亮」VBA代碼。

希望這會有所幫助。

Answer 2

使用此找到你的表最後一行：

ColNum = 4 
LastRow = ActiveSheet.Cells(Rows.Count, ColNum).End(xlUp).Offset(Abs(ActiveSheet.Cells(Rows.Count, ColNum).End(xlUp).Value <> ""), 0).Row 

LASTROW的價值將是未來開行的表。

爲了引用在代碼使用細胞：

ActiveSheet.Range("D" & Trim(Str(LastRow))).Value = "YourValue" 

或帶有索引：

ActiveSheet.Range(Cells(LastRow, 4), Cells(LastRow, 4)).Value = "YourValue" 

Answer 3

這個填充在給定的工作表的給定的列下一個細胞與其左邊的數字部分是一個值加1

Sub FillRow(ws As Worksheet, nCol As Long) 
Dim lastRow As Long 

With ws 
    lastRow = .Cells(.Rows.Count, nCol).End(xlUp).row 
    With .Cells(lastRow, nCol) 
     .Offset(1).Value = "D" & Right(.Value, Len(.Value) - 1) + 1 
    End With 
End With 

End Sub