vb msflexgrid单元格合并导出excel问题,急急急!

Question

本人在开发报表时遇到一个问题.
VB6.0+SQL2000
----------------------------------------------
MSFLEXGRID显示如下:
----------------------------------------------
名称   |项目     |  数量    |
-----------------------------------------------
      |123     |  50
      -----------------------------------------
  1   |1234    |  10
      -----------------------------------------
      |12345   |  70
-----------------------------------------------
      |123     |  20
      -----------------------------------------
  2   |1234    |  30
      -----------------------------------------
      |12345   |  40
-----------------------------------------------
      |123     |  50
      -----------------------------------------
 3    |1234    |  60
      -----------------------------------------
      |12345   |  70
-----------------------------------------------
现在我想实现的是导出excel时也能实现名称这列相同数据的合并,现在遇到的最大问题是数据是动态的.不过项目这一项是固定三行.请问各位大侠帮忙.谢谢!

Answer 1

经自已努力问题解决了,谢谢各位大侠关注.
With excelApp
 Dim nRow%, nCount%, nNum%
    nRow = 7'从B列的第几行开始
    Do
   .DisplayAlerts = False'关闭提示
   nCount = excelApp.WorksheetFunction.CountIf(.Range("b:b"), .Range("b" & nRow))
   .Range("b" & nRow & ":b" & nRow + nCount - 1).Merge
    nRow = nRow + nCount
 Loop Until .Range("b" & nRow) = ""
   End With
实现功能MSFLEXGRID导出excel,B列中所有相同的内容合并,并且不提示(选定区域包含多重数值.合并到一个单元格后只能保留最左上角的数据)的提示.