excel - セルの範囲をコピーし、データと数式ではなく値のみを含むセルのみを選択します

Answer 1

簡単-Elseステートメントを少し編集するだけです...

' Loop through columns and rows
For iCol = 1 To 3 ' or however many columns you have
    For iRow = 1 To iMaxRow 

    With Worksheets("Sheet1").Cells(iRow,iCol)
        ' Check that cell is not empty.
        If .Value = "" Then
            'Nothing in this cell.
            'Do nothing.
        Else
            ' Copy the cell to the destination
            Worksheets("Sheet2").cells(iRow,iCol).value = .value
        End If
    End With

    Next iRow
Next iCol

これがあなたの意図したことだといいのですが…。

Answer 2

Sheet1列の使用済み部分A:CからSheet2に、使用できる値としてすべてのセルをコピーするには

とにかくコピーすると、空白のセルは空白になります。

Sub Better()
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
Set rng1 = ws.Range(ws.[a1], ws.Cells(Rows.Count, "A").End(xlUp))
Sheets("Sheet2").Range(rng1.Address).Value = rng1.Value
End Sub