似乎试图获得相同范围时得到不同的结果

Question

I'm having a problem which could also be a bug, either way, I don't know how to resolve it and would appreciate any help :)

i2 = 2
plz1 = Worksheets("Sheet2").Range("B" & i2)
plz2 = Worksheets("Sheet2").Range("C" & i2)

B2 is 89999 and C2 is 90000. So when running this code plz1 is 89999 and plz 2 is "90000" (notice the quotation marks).

So:

plz1 = 89999
plz2 = "90000"

This is quite an issue since I want to create a range:

Range(plz1 & ":" & plz2)

I don't know if I am just doing a really obvious stupid mistake or if it's a bug...

I would really appreciate any advice I can get! :))

Thanks, NiceRice

Answer 1

Maybe you could try this instead?

Sub Combined_range()
i2 = 2
Sheets("Sheet2").Range ("B" & i2 & ":C" & i2)
End Sub

Answer 2

Not sure if you mean to construct a range of numbers or a range of rows.

Here is how you can deal with either a text 90000 or "90000" in a cell. Also, then have a testNumber and see if it is between plz1 and plz2.

Option Explicit
Sub test()

Dim i2 As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2") 'Change as appropriate

Dim plz1 As Long
Dim plz2 As Long

i2 = 2

'Get rid of any "" if present in string

If InStr(1, ws.Range("C" & i2), Chr(34)) > 0 Then
    ws.Range("C" & i2) = Application.WorksheetFunction.Substitute(ws.Range("C" & i2), Chr(34), "")
End If

On Error GoTo NotConverted

plz1 = CLng(ws.Range("B" & i2))
plz2 = CLng(ws.Range("C" & i2))

Dim myRange As Range
Set myRange = ws.Range(plz1 & ":" & plz2)

MsgBox myRange.Address

Dim testNumber As Long
testNumber = 1238

If testNumber >= plz1 And testNumber <= plz2 Then
    MsgBox "testNumber is between " & plz1 & " and " & plz2
End If

Exit Sub

NotConverted:
MsgBox "The contents of either cell B" & i2 & " or C" & i2 & " could not be converted to a number."

End Sub