Копировать данные столбца без копирования пустых ячеек

Question

У меня есть 2 столбца A и B

Я хочу скопировать данные столбца A в столбец B. В A есть несколько пустых ячеек, но эти пробелы не должны перезаписывать данные в столбце B. Толькоячейки с данными должны быть скопированы в B.

Как этого достичь в VBA?

Answer 1

Поскольку у вас есть условная вставка, вам нужно будет выполнить цикл здесь. Проверьте каждое значение в Column A и переместите VALUE в Column B ( if-and-only-if Column A не является пустым )

Sub Jeeped()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim lr As Long, i

lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For i = 2 To lr
    If ws.Range("A" & i) <> "" Then
        ws.Range("B" & i).Value = ws.Range("A" & i).Value
    End If
Next i

End Sub

Answer 2

Это, вероятно, не полное решение, но может дать вам несколько идей:

Sub test()
    Dim R As Range
    Set R = Range("A:A").SpecialCells(xlCellTypeConstants, 23)
    R.Offset(0, 1).Value = R.Value
End Sub

Если данные в столбце A содержат вычисленные значения, это может работать не так, как предполагалось.