关于合并单元格的值怎么提取（VBA）

有这么一组数据
名称  数量 类别
鸡蛋 10      蛋类
鸭蛋 20      
番茄 10     蔬菜
芹菜  29     
带鱼  23   鱼类


上面的类别空着的是和上面一类的合在一起的，也即类别是合并单元格的形式存在的。

现在想求出某一名称所属的类别，应该怎么表示？？？

我是这么写的。


Dim MyRng As Range
Dim CellU As Range
Dim Num As Integer
Dim FinalRow As Integer

Num = 0

FinalRow = Worksheets("sheet1").Range("a1").End(xlDown).Row

Set MyRng = Worksheets("sheet2").(Cells(1, 1), Cells(FinalRow, 3))    '200的位置用finalrow代替




For Each CellU In MyRng
    If CellU= '你不知道的一种东西" Then    ‘If CellU.Interior.Color = 65535 Then 这里其实用的是颜色来寻找的。要是有名称的话直接用if函数就可以了
        With Worksheets("sheet2")
        .Range("a1").Offset(Num, 0).Value = Num + 1
        
        .Range("a1").Offset(Num, 1).Value = CellU.Offset(0, 0).Value '名称
        .Range("a1").Offset(Num, 2) = CellU.Offset(0, 1)             '数量
        .Range("a1").Offset(Num, 3) = CellU.Offset(0, 2)   '类别
   
        Num = Num + 1
        
        End With
   
    End If
Next
End Sub


这时就会出现一个问题。

当你要找的那个类别后移两个之后不是出于合并单元格的第一个位置，那么你得到的值将会是空""
因为事实上合并单元格之前，该单元格就是空的单元格。


问：现在该怎么修改程序找出类别。
谢各位大侠赐教。

[titter][titter]