Question

我在使字符串变量等于工作表中的单元格时遇到问题，因为我遇到类型不匹配。我还想使一个字符串变量（SheetString）等于所有工作表内容。我的部分代码如下：

    Range("A1").Select
    Set sht = ThisWorkbook.Worksheets("Sheet3")
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks)
    rng.EntireRow.Delete
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    'MsgBox (Continue)
    Set rng = Range("A1:A" & LastRow)

    'For x = 1 To LastRow
        'RowString = cell(x, 1).Value
        'if instr(,RowString,("Sheet1").
    SheetString = Range("a1:a" & LastRow).Value
    MsgBox (Continue)
    IE.Quit

由于

Answer 1

你不能指定这样的字符串，如果你想在 A列中整个整个范围，你就得到了一个循环，如下所示： / p>

For i = 1 To LastRow
    SheetString = SheetString & ";" & Range("A" & i).Value
Next i

Answer 2

参见此示例

SecurityConfig

你不能这样做。您可以将整个列存储在数组中。为此，您必须将@Configuration声明为Sub Sample() Dim SheetString As String LastRow = 12 '<~~ Example SheetString = range("a1:a" & LastRow).Value End Sub，如下所示，否则您将收到SheetString错误，因为您目前正在获取

Variant

这将创建一个可以循环访问的数组

Type Mismatch

将工作表移动到字符串变量

2 个答案: