[已解决]依照相同名稱的數量,自動產生相對(品牌)合併儲存格數量

metrostar

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成

謝謝了

 

 

rZZYV1Ea.rar (1.44 KB, 下载次数: 4)

2010-4-30 11:44 上传

点击文件名下载附件
依照相同名稱的數量,自動產生相對(品牌)合併儲存格數量

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-30 12:57

Sub test()
Dim i%
Application.DisplayAlerts = False
For i = [a65536].End(3).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Range(Cells(i, 2), Cells(i - 1, 2)).Merge
    End If
Next
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

枯禅

Sub test()
Dim i%
Application.DisplayAlerts = False
For i = [a65536].End(3).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        Range(Cells(i, 2), Cells(i - 1, 2)).Merge
    End If
Next
Application.DisplayAlerts = True
End Sub

metrostar

真是棒級了
非常多謝帥哥學長
感恩加感謝您
完全可以達到
非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上