Question

我有一个代码，我有时会工作，而不是其他时间...... 我有两个数据表，我将每个列中的某些列组合成一个新表。我试图让代码识别表是否为空白并跳过复制/粘贴过程（如果是），或继续使用goto函数传输数据的宏。我有时会收到应用程序或对象定义的错误。

Sub replace_combined_table()

Range("CombinedTable").Delete
On Error GoTo runclaim
claimrow = Sheets("claim edit").Range("A3").End(xlToRight)
    If Sheets("claim edit").Range("A3" & claimrow).Value = "" Then
    GoTo runcharge
runclaim:     Run "FillClaimData_combined"
    End If
runcharge:
On Error GoTo fillcharge
    chargerow = Sheets("chrg review").Range("A3").End(xlToRight)
    If Sheets("chrg review").Range("A3" & chargerow).Value = "" Then
     GoTo runsplit
fillcharge:   Run "FillChargeData_combined"
    End If

runsplit:
  Dim c As Range

For Each c In Range("CombinedTable").Columns(2).Cells
c = Split(c)(1)
Next

End Sub

而索赔表和收费表是我从中提取数据的表格。

我通过计算空白单元格来尝试这个，但我相信它基本上是相同的，它会出错。

我认为在此期间我可能会使用列标题为每个工作表使用一个计数特殊单元格来确定是否预设了任何数据，但我真的想了解我所做的事情以便不断失败。

非常感谢你的帮助。

合并表格数据和识别空白表

0 个答案: