我正在使用此代码为用户名搜索来自多个交易的所有关联信息。它应该将它们粘贴到当前工作表中。它似乎运行,它不会引发任何错误,并执行最终的“选择”命令,但它不会返回任何粘贴的数据。 Option Explicit
Sub InvestorReport()
Dim investorname As String
Dim finalrow As Integer
Dim i As Integer 'r
我正尝试使用新票证数据更新当前工作票证数据的工作簿。我已经为底部的每个循环嵌套,以检查票号中的相等性。如果它找到匹配,它应该用新数据更新一些单元格。如果该票不在我的票单列表中,则应该将新票添加到底部。发生的事情是,即使是电子表格中的票据,它也会不断将newData中的所有票据添加到currentData的底部。我认为问题最终取决于这些嵌套for循环的逻辑,但我无法弄清楚我做错了什么。 Sub ge
尝试为每行创建值的所有唯一组合,因为每个单元格可能有或没有多个嵌套值。目标是解释每一行,并为每个值的唯一组合编写一个新行。 Sub combo(x As Integer, splitCell As Boolean, lastcol As Long)
Dim cellArray() As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Work
我写了这个快速For循环作为我的宏的一部分,根据dewbk中的值列表在utwbk中查找单元格。这个循环似乎对一些单元格很好,然后崩溃。问题是,它每次崩溃的值不同,但值存在于utwbk。这里是我的代码: Dim utpath As String
Dim utwbk As Workbook
Dim ogfund As String
Dim ogcell As Range
Dim newfund