本宏是用来把h列的所有相临相同的元素合并用的......
并非原创.....
x = 1
Do While x < 20000
jsq1 = x
xx = "h" + LTrim(Str(x))
abc = Range(xx).Value
Do While Range(xx).Value = abc
x = x + 1
xx = "h" + LTrim(Str(x))
Loop
jsq2 = x - 1
xx1 = "h" + LTrim(Str(jsq1))
xx2 = "h" + LTrim(Str(jsq2))
xx3 = xx1 + ":" + xx2
Range(xx3).Select
Selection.Merge
Loop
并非原创.....
x = 1
Do While x < 20000
jsq1 = x
xx = "h" + LTrim(Str(x))
abc = Range(xx).Value
Do While Range(xx).Value = abc
x = x + 1
xx = "h" + LTrim(Str(x))
Loop
jsq2 = x - 1
xx1 = "h" + LTrim(Str(jsq1))
xx2 = "h" + LTrim(Str(jsq2))
xx3 = xx1 + ":" + xx2
Range(xx3).Select
Selection.Merge
Loop