Question

我在将范围值与""或vbNullString进行比较时遇到类型不匹配错误。我读了很多类似的q +帖子来处理这个问题。

数据全部是数字或""。

Sub vegetableCounting()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim ws1Range As Excel.range, ws2Range As Excel.range, ws3Range As Excel.range, ws2Loop As Excel.range
Dim ws1Row As Long, ws1Col As Long, ws2Row As Long, ws2Col As Long
'
Dim rowCounter As Long, colCounter As Long, rowsMendo As Long
Dim mendoSum As Double
'
Set ws1 = Sheets("shareSchedule")
Set ws2 = Sheets("shareDistribution")
Set ws3 = Sheets("vegCount")
'***not yet set to the full ranges***
Set ws1Range = ws1.range("E7:H11") 'shareSchedule
Set ws2Range = ws2.range("D7:BB17") 'shareDistribution
Set ws3Range = ws3.range("D7:BB11") 'vegetableCount
'***not yet set to the full ranges***
rowsMendo = 0
rowCounter = 0
colCounter = 0
mendoSum = 0

For ws1Row = 0 To ws1Range.Rows.count Step 1
    For ws1Col = 0 To ws1Range.Columns.count Step 1
        If ws1Range.Offset(ws1Row, ws1Col).value <> "" Then
            For Each ws2Loop In ws2Range '11rows*51cols = 561
                ws2Row = ws2Row + rowCounter + rowsMendo
                ws2Col = ws2Col + colCounter
                If ws2Range.Offset(ws2Row, ws2Col).value = "" Then
                    Exit For
                Else
                    If ws1Range.Offset(ws1Row, ws1Col).Interior.ColorIndex = 24 And _
                    ws2Range.Offset(ws2Row, ws2Col).Interior.ColorIndex = 24 Then 'a MENDO match
                        If rowCounter < 3 Then
                            mendoSum = mendoSum + ws1Range.Offset(ws1Row, ws1Col).value * ws2Range.Offset(ws2Col, ws2Row)
                            rowCounter = rowCounter + 1
                        ElseIf rowCounter = 3 Then
                            colCounter = colCounter + 1
                            rowCounter = 0
                        ElseIf colCounter = ws2Range.Columns.count + 1 And _
                        ws2Range.Offset(ws2Row, 1).Interior.ColorIndex = 24 And _
                        ws2Range.Offset(ws2Row + 4, 1).Interior.ColorIndex = 24 Then
                            colCounter = 0
                            rowsMendo = rowsMendo + 3
                        ElseIf colCounter = ws2Range.Columns.count + 1 And _
                        ws2Range.Offset(ws2Row, 1).Interior.ColorIndex = xlNone And _
                        ws2Range.Offset(ws2Row + 4, 1).Interior.ColorIndex = xlNone Then
                            colCounter = 0
                            rowsMendo = rowsMendo + 1
                        End If

                        ws3Range.Offset(ws1Row, ws2Col) = ws1Range.Offset(ws1Row, ws1Col).value * ws2Range.Offset(ws2Row, ws2Col).value

                    End If
                End If
            Next
        End If
    Next ws1Col
Next ws1Row

'for ws2
                'Offset(0, 0), Offset(1, 0), Offset(2, 0), then
                'Offset(0, 1), Offset(1, 1), Offset(2, 1), then
                'Offset(0, 2), Offset(1, 2), Offset(2, 2), then
                'etc
End Sub

我在

上收到错误

  If ws1Range.Offset(ws1Row, ws1Col).value <> "" Then

并且生病了再次

If ws2Range.Offset(ws2Row, ws2Col).value = "" Then

任何想法？以下是我试图从

中提取的工作表的一些图像

Answer 1

您可以尝试CStr将值转换为String。 Format也可以在处理Null时使用CStr，而If CStr(ws1Range.Offset(ws1Row, ws1Col).value) <> "" Then会产生错误。

所以：

If Format(ws1Range.Offset(ws1Row, ws1Col).value) <> "" Then

或

Answer 2

我通常不使用Offset函数，但您可以通过直接指定行和列来访问指定范围内的单元格。

EG：ws2Range（ws2Row，ws2Col）.value

你必须从1开始进行迭代，当你从0开始时会出现错误。

Answer 3

当查看范围的偏移时，您将得到整个范围区域，偏移您的偏移值。

e.g。

set a=sheets(1).range("A1:F40")
debug.print a.offset(1,1).address

给出了

的结果

$B$2:$G$41

注意这是（A + 1,1 + 1：F + 1,40 + 1）而不是单个细胞

有两个选项：

将您的范围设置为单个单元格，并使用偏移量查看该单元格周围的区域
使用您现在拥有的范围，并使用cells(x,y)查看该范围

范围类型不匹配vba

3 个答案: