Excel VBA技术求助：利用单元格值定位客户名粘贴行位置

我有一张导出了销售信息的Excel工作表，需要将信息汇总到另一张工作表。汇总表的A列要按以下格式展示：先显示客户姓名，紧接着是该客户购买的所有商品，之后再显示下一位客户及其对应商品。

我已经提取出了所有客户姓名以及他们的购买次数，但现在卡在了第二步——复制客户姓名时，没法为其下方的商品信息预留对应数量的行空间。我尝试写了一段循环VBA代码，想用B列的数值来控制粘贴客户姓名的行位置，但代码有问题，求修正。

原参考代码 #

Dim i As Long
Dim j As Long
Dim NumRows As Long

NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count

Cells(1,4).Value = Cells(1,1).Value

j="B1"

For i=2 To NumRows

    Cells([j+3],4).Value = Cells("A[i]",1).Value

    j=j+"B[i]"+2

Next i

修正后的代码及说明 #

你的代码存在语法错误（比如字符串与数值混用、错误的单元格引用方式），以下是实现需求的正确版本：

Sub ArrangeCustomersWithSpace()
    Dim i As Long
    Dim targetRow As Long
    Dim totalCustomers As Long
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    
    ' 替换为你的数据来源表和汇总表名称
    Set sourceWs = ThisWorkbook.Worksheets("销售数据")
    Set targetWs = ThisWorkbook.Worksheets("汇总表")
    
    ' 获取客户列表的总行数
    totalCustomers = sourceWs.Range("A1", sourceWs.Range("A1").End(xlDown)).Rows.Count
    
    ' 初始化汇总表的起始行
    targetRow = 1
    
    For i = 1 To totalCustomers
        ' 将客户姓名写入汇总表A列
        targetWs.Cells(targetRow, 1).Value = sourceWs.Cells(i, 1).Value
        ' 根据B列的购买次数，计算下一个客户的起始行
        ' 公式逻辑：当前行 + 商品行数（B列值） + 1（客户名本身占1行）
        targetRow = targetRow + sourceWs.Cells(i, 2).Value + 1
    Next i
End Sub

核心修正点 #

• 用targetRow变量跟踪汇总表的当前行位置，替代原代码中错误的字符串拼接方式
• 明确指定工作表对象，避免因当前激活表变化导致的引用错误
• 直接通过B列的购买次数计算行偏移量，确保每个客户下方预留足够的行来放置对应商品

内容的提问来源于stack exchange，提问作者Peter Koebel