excel - 在 VBA 中合并列

Question

我需要处理我每天以下列方式获得的文件。

C1  C2          C3
618 970000000000    32
    970000000000    32

58  970000000000    23
    970000000000    23
    970000000000    23

15  970000000000    119
    970000000000    119
    970000000000    119
    970000000000    119

15  970000000000    17
    970000000000    17

我需要根据 C1 的合并来合并 C3 中的单元格。请注意，C1 已经合并。我希望它看起来像下面

    C1  C2          C3
618 970000000000    32
    970000000000    

58  970000000000    23
    970000000000    
    970000000000    

15  970000000000    119
    970000000000    
    970000000000    
    970000000000    

15  970000000000    17
    970000000000    

是否可以在 VBA 中编写代码？

Answer 1

假设您的数据在 A 到 C 列中，您可以使用以下代码：

Sub MergeMyCells()
firstRrow = 1
Range("C1").Select
lastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Cells(lastRow, 3).Select
For i = firstRow To lastRow
  Cells(i, 3).Select
  If (Not (ActiveCell.Offset(0, -2).Value > 0)) Then
    ActiveCell.Value = ""
  End If
Next
End Sub