时间戳

首页 > 解决方案 > 使用宏将数据添加到现有表中

vba - 使用宏将数据添加到现有表中

问题描述

项目文件在某些​​单元格中具有特定数据。我使用 ExecuteExcel4Macro() 检索这些数据。接下来，我想把这个数据放在一个表中。是使用；

Index = Application.ActiveSheet.Range("A10000").End(xlUp).Row + 1

找到第一个空行。只要我的数据不是表格格式，它就可以完美地工作。如果是，则在表格范围之后的第一行中添加。我认为 End(xlUp) 无法识别表中的空行。但我不确定。有关更多上下文，我使用以下代码将数据放入我的工作簿中。（简化）

'Array of data I want in my table
Dim ref(15) As String

Index = Application.ActiveSheet.Range("A10000").End(xlUp).Row + 1

'GetValue is the ExecuteExcel4Macro() function, this works fine.
'I am using a for each loop to go through all the files to extract data
Application.ActiveSheet.Cells(Index, 1).Formula = GetValue(Path, file, ref(0))
Application.ActiveSheet.Cells(Index, 2).Formula = GetValue(Path, file, ref(1))

如果需要，我可以进一步详细说明

标签： vbaexcel

解决方案

如果你不能摆脱空行，你可以尝试使用 Find，即

Sub x()

Dim Index As Long

Index = ActiveSheet.ListObjects("Table1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

End Sub

推荐阅读