Question

我已经放置了一个宏来从输入区域移动数据，该输入区域获取水读数，然后将它们放入另一张纸上的表格中。

表格是“水 - 输入”，“水 - 数据”，表格是“水”

我有一个宏来添加一个新的表行，然后将数据移动到新行。

我添加了一些说成功的文字！但是，我想添加行号，以便人们可以查找记录。

这是我写的第一篇VBA，如果它有点粗糙，那就很抱歉。

Sub waterInput()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Water - Data")
Set table_list_object = the_sheet.ListObjects("Water")

'Add new row to table "Water - Data"
Set table_object_row = table_list_object.ListRows.Add

table_object_row.Range(1, 1).Value = ""

'Select $$ from input "Site"
Sheets("Water - Input").Range("C10").Copy

ActiveSheet.Paste Destination:=Worksheets("Water - Data").Range("B" & Rows.Count).End(xlUp).Offset(0)

'Select $$ from input "Date"
Sheets("Water - Input").Range("E10").Copy

ActiveSheet.Paste Destination:=Worksheets("Water - Data").Range("C" & Rows.Count).End(xlUp).Offset(0)

'Select $$ from input "Meter Number"
Sheets("Water - Input").Range("I10").Copy
ActiveSheet.Paste Destination:=Worksheets("Water - Data").Range("F" & Rows.Count).End(xlUp).Offset(0)


'Select $$ from input "Reading"
Sheets("Water - Input").Range("K10").Copy

ActiveSheet.Paste Destination:=Worksheets("Water - Data").Range("G" & Rows.Count).End(xlUp).Offset(0)

'Clear selected copy
Application.CutCopyMode = False

Sheets("Water - Input").Range("I12").Value = "Success"
Sheets("Water - Input").Range("I13").Value = "Added to line"

'Count rows and return number


'Clear selected Input fields
Sheets("Water - Input").Range("C10,I10,E10,G10,I10,k10").ClearContents

End Sub'

非常感谢

汤姆

Answer 1

根据您的代码，对于行号，您可以使用以下行：

Sheets("Water - Input").Range("I13").Value = "Added to line " & table_object_row.Range(1, 1).Row

表中的VBA计数行

1 个答案: