Question

我正在尝试创建一个宏，该宏将在我的工作簿的一张纸上接收数据，并在另一张纸上创建一组输出数据。我有两个表，Input_Data（在数据表上）和Output_Data（在DI上）表。

Public Sub resize()
Dim inputTable As ListObject
Dim outputTable As ListObject
Dim sizeInput As Long
Dim sizeOutput As Long
Set inputTable = Sheets("Data").ListObjects("Input_Data")
Set ouputTable = Sheets("DI").ListObjects("Output_Data")
sizeInput = inputTable.Range.Rows.Count
sizeOutput = outputTable.Range.Rows.Count


Do While sizeInput > sizeOutput
    ouputTable.ListRows.Add
Loop

End Sub

以上是我到目前为止看到的其他帖子。当我尝试运行它时，我得到一个运行时错误＆＃39; 91＆＃39;：＆＃34;对象变量或With块变量未设置。我猜我在某个地方引用了错误的东西，但我不知道在哪里。我还希望这可以连续运行，或者至少在数据添加到Input_Data列时运行，或者当人们从数据表切换到另一个时触发。不确定什么会造成最小的延迟。我目前在＆＃34; ThisWorkbook＆＃34;对象，不确定这是不是正确的地方。

非常感谢任何建议或帮助。

Answer 1

ListObject.Resize Method

试试这个：

$w('#text95').html = 
       (/((http:|https:)[^\s]+[\w])/g, '<a href="$1" target="_blank">$1</a>').replace;

根据另一个表的大小改变excel表的大小

1 个答案: