Question

如何用VBA循环语句实现EXCEL批量合并单元格

对于A列不同的不合并，对于B列相同的需要合并。例如：

处理为：

其中B13，B14是合并的，但是B15就不要合并

自己写了段:

mergeA = 2
'上标
mergeB = 3
'下标
While mergeB <= 15 If Range("A" & mergeA).Value <> Range("A" & mergeB).Value Then mergeA = mergeB End If If Range("b" & mergeA).Value = Range("b" & mergeB).Value Then Else Range("b" & mergeA & ":b" & mergeB - 1).Select Selection.Merge mergeA = mergeB End If mergeB = mergeB + 1 Wend





Answer 1

没调试，试试行不
合并要从下往上
sub main
for i=15 to 2 step -1
if cells(i,"B")=cells(i-1,"B") and cells(i,"A")=cells(i-1,"A") then
range(cells(i,"B"),cells(i-1,"B")).merge
end if
next i