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
承擔因您的行為而導致的法律責任，
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經閱讀并接受
上述條款。