Excel VBA获取活动单元格的行号，并将其放置在另一张图纸上表格的A列中

这里是VBA的新成员。几乎完成了这个项目，我的工作和失踪的一件事，我不能与VBA

我正在使用用户表单将数据输入到工作表中。我有一个条件，如果列范围（我命名的）大于0，则从另一列中获取值，并使用该值将那么多行添加到另一个工作表上的另一个表中

我做的很好。我遇到的障碍是，我还需要将源工作表中activecell的行号（使用用户表单的行号）插入到代码执行时插入的所有新行的A列中

我需要这样做，因为我在单元格B到E中有基于行A中的值计算的公式；我需要a行中的值是我刚刚插入到源表中的行的行号（即“活动单元格”思维）

清澈如泥？我希望我能正确地解释这一切，并且非常感谢在这方面能得到的任何帮助。我已经提供了代码。这是我需要帮助的最后一部分。我认为这是一个我必须使用的循环，但我还没有在vba中使用循环

 Sub AddRowsToTable()

 Dim targetTable As ListObject
 Dim valueLastRowLastCol As Long

 Set targetTable = Range("TblDateRng").ListObject

' Get last row, last column value
valueLastRowLastCol = Intersect(Rows(ActiveCell.Row), Range("Duration")).Value

'Add as many rows as the number in last column, last row of source table to target table
targetTable.Resize targetTable.HeaderRowRange.Resize(targetTable.ListRows.Count + valueLastRowLastCol 
+ 1)

'Execute the column number of the active cell from the source sheet, and places it in column (A) of 
new rows added from code above
For Each cell In targetTable.Range("A:A")
If targetTable.Range("A:A") = "" Then
Range("A:A").Value = ActiveCell.Row

MsgBox "Success"
End If
Next
End Sub

---

我猜你可能想把

如果targetTable.Range（“a:a”）=“然后Range”（“a:a”）.Value=ActiveCell.Row

改为

如果cell=“”，那么cell.Value=ActiveCell.Row

除了-而不是在整个列中循环。Dan，一些示例数据/和屏幕截图将加速Ricardo！欢迎回来帮助我，哈哈。你在我的另一个问题上给我的最后一个密码是救命符。正如你可能从这篇文章中看到的，我仍然在使用它的大部分。我已经对代码进行了建议的编辑，但出于某种原因，模块似乎想跳过最后一部分。我会尽快做一些故障排除，看看是否能解决。我会尽快通知你最新情况。如果你还有其他建议，我就采纳。我没有足够的声誉来张贴照片。里卡多。我能让它工作。再次感谢你！IDK为什么它会像我在上一篇文章中提到的那样跳过代码。我从零开始，现在就可以了。我想有趣的事情发生了。