在VBA中合并列

时间:2012-11-25 05:11:20

标签: excel-vba merge multiple-columns vba excel

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

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中编写代码?

1 个答案:

答案 0 :(得分:0)

假设您的数据位于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