工作日志20081106(一个VBA的宏)

本宏是用来把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