excel单元格合并的提速

[pabulum]

With grid
For i = 0 To .Cols - 1
If .MergeCol(i) Then

curValue = data(.FixedRows, i)
lastRow = .FixedRows

For j = .FixedRows + 1 To .Rows - 1
If data(j, i) <> curValue Then

With xlSheet
.Range(.cells(lastRow + 1, i + 1), .cells(j, i + 1)).MergeCells = True
End With

curValue = data(j, i)
lastRow = j
End If
Next j

End If
Next i
End With

但是range.mergecells的方法速度实在是太慢了，有没有快的方法，一次性将一列数据按内容自动合并？

[pabulum]

.

[vansoft]

1、设定合并范围
2、调用合并方法

注：当多个单元格各并时，如多个单元格有内容时，会有一个提问，请你自己关注一下。

[pabulum]

不是问方法　是问提速

[ukyoxh]

excel不象msf

只有一个一个的写,没有办法啊~~

关注中 ing~~~~~