Question

我有一张包含以下文字（D＃）的行：

D1
D2
D3

我需要在最后一个条目“D3”下添加一个新行“D4”（将下一个整数添加到字母D）。当然，下次新条目将是“D5”等...... 如何使用VBA脚本或宏来实现？

Answer 1

在D列中输入以下工作表公式并将其扩展到整个区域：

="D" & ROW()

您可以通过Excel VBA宏自动执行此操作，如以下代码片段所示，该代码段使用工作表公式填充Range("D1:D20")：

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

这将填充给定工作表的给定列中的下一个单元格，其值为左数字部分增加一个

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

使用VBA在Excel中添加新行

3 个答案: