Sub Test2（）
Dim i, j
開(kāi)始 = 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（開(kāi)始, 1）.Resize（j + 1）.Merge
開(kāi)始 = i: j = 0
End If
next
end sub
3-17、連續(xù)相同的產(chǎn)品編號(hào)單元格按行批量合并
手機(jī)觀看
APP掃描二維碼打開(kāi)
手機(jī)使用APP
學(xué)習(xí)更輕松
學(xué)習(xí)更輕松
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。