помогите пожалуйста есть смешанный столбец (в ячейках цифры и цифры+буквы). нужно из этого столбца в другой столбец скопировать ячейки только с цифирами+буквами.
Sub БуквыЦифры()
Const col1 = 1 'Столбец 1
Const col2 = 2 'Столбец 2
Dim a As Variant
Dim b As Variant
Dim y As Long
Dim u As Long
y = Cells(Rows.Count, col1).End(xlUp).Row
a = Range(Cells(1, col1), Cells(y, col1 + 1))
ReDim b(1 To UBound(a, 1), 1 To 1)
For y = 1 To UBound(a, 1)
If Not IsNumeric(a(y, 1)) Then
u = u + 1
b(y, 1) = a(y, 1)
'b(u, 1) = a(y, 1)
End If
Next
Cells(1, col2).Resize(UBound(b, 1)) = b
End Sub