ワークシートを文字列変数に移動

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

あなたは列で全範囲をasignしたい場合、あなたはループをnned、このような文字列を割り当てることはできません、次のように：

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

Answer 2

は、この例を参照してください

Sub Sample() 
    Dim SheetString As String 
    LastRow = 12 '<~~ Example 
    SheetString = range("a1:a" & LastRow).Value 
End Sub 

これはできません。しかし、列全体を配列に格納することはできます。下記の他に示すように、そのためにあなたが現在あなたがループはそれが必要

For i = LBound(SheetString) To UBound(SheetString) 
    Debug.Print SheetString(i, 1) 
Next i