Question

VBA问题。

我是VBA新手，我正试图看看我是否可以让我的代码为我做更多的事情。目前，代码在我的sharedrive上打开一个电子表格，检查下一个空行，并为我提供行号。例如，我有39行数据，第40行是空的，它给我40号。

它目前在msgbox中提供了这个号码。我想要它做的是将该数字输入到我打开的工作表上的单元格中。

该号码基本上用作身份证，也向我们显示已提交了多少“投诉”。

任何想法？

这是我目前的代码：

Sub LastRowWithData()

Dim lastRow As Long
Dim ConcernMemosMaster As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set ConcernMemosMaster = Workbooks.Open("N:\myfilepath")
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1

ConcernMemosMaster.Close

Application.DisplayAlerts = True

MsgBox lastRow

End Sub

Answer 1

以下代码会在活动工作表单元格lastRow中粘贴行数+ 1（您的A1变量）。

如果您想要在不同的单元格中修改行

currentSheet.Range("A1") = lastRow

并用不同的单元格引用替换A1。

你的宏：

Sub LastRowWithData()

    Dim currentSheet As Worksheet
    Set currentSheet = ActiveSheet

    Dim lastRow As Long
    Dim ConcernMemosMaster As Workbook

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set ConcernMemosMaster = Workbooks.Open("N:\myfilepath")
    lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1

    ConcernMemosMaster.Close

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    currentSheet.Range("A1") = lastRow

End Sub

Excel VBA - 生成下一个空行号并复制到电子表格

1 个答案: