如何通过VBA宏在Excel中的一个特定单元格中组合多个单元格值（动态）？答案

【问题标题】：How to combine multiple cells value (dynamic) in one specific cell in excel via VBA macro?如何通过VBA宏在Excel中的一个特定单元格中组合多个单元格值（动态）？
【发布时间】：2016-10-19 12:59:05
【问题描述】：

我正在同意担任客户助理。我需要每个月生成出色的报告。下面是我的主数据表，我定期更新客户发票、金额、发票日期和付款状态

每个月末我需要准备如下的未完成报告（表名称未完成该表包含两列，客户和另一列pending_date_amount）。在相关客户名称单元格的下一个单元格中，我手动输入所有待处理发票日期和金额以及待处理总金额。这个过程需要更多时间。如果有人建议如何简化此过程并避免手动过程、公式或 VBA（我对 VBA 知之甚少），请对此提供帮助，我的工作压力会减轻。

【问题讨论】：

标签： excel excel-formula vba

【解决方案1】：

您可以创建一个循环遍历 Mainsheet 中所有客户的函数。如果付款状态为待处理，请将其写入附加工作表。这并不难。我建议你在 excel vba 中获得基本知识。您可以使用this 或其他任何东西。网络上有很多资源。这里只是给你一个想法是一个示例伪代码：

Dim lRowCountMain as Long
Dim lRowCountReport as Long
lRowCountMain = 1
lRowCountReport = 1

do
    If Table1.Range("D" & lRowCountMain).Value = "Pending" Then
        'Write your needed information
        Table2.Range("A" & lRowCountReport).Value = "Some Information"
        lRowCountReport = lRowCountReport +1
    End If
lRowCountMain = lRowCountMain +1
Loop Until lRowCountMain = 5000 Or Table1.Range("A" & lRowCountMain).text = ""

【讨论】：