1

VBAの問題。

私は VBA の初心者で、自分のコードでもう少し多くのことを実行できるかどうかを確認しようとしています。現在、コードは共有ドライブのスプレッドシートを開き、次の空の行をチェックして、行番号を提供します。たとえば、39 行のデータがあり、40 行目が空の場合、数値は 40 になります。

現在、この番号はメッセージボックスに表示されています。私がやりたいことは、開いているワークシートのセルにその数値を入力することです。

この番号は本質的に 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