Sub Test2（）
Dim i, j
開始 = 2
Range（"A:A"）.VerticalAlignment = clcenter
For i = 3 To Sheet5.Cells（Rows.Count, "E"）.End（xlUp）.Row + 1
If Cells（i, 1） = Cells（i - 1, 1） Then
j = j + 1
Else
Cells（開始, 1）.Resize（j + 1）.Merge
開始 = i: j = 0
End If
next
end sub
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。