1

VBA 问题。

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

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

这个数字本质上是一个 ID，它也向我们展示了有多少“投诉”被提交。

有任何想法吗？

这是我目前的代码：

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
4

1 回答 1

0

下面的代码将在活动工作表单元格中粘贴行数 + 1（您的lastRow变量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
于 2013-10-30T08:46:52.023 回答