Excel VBA problem
У меня в столбце в ячейках значения либо "", либо слова. Мне надо все эти слова в любом порядке, но главное поочереди расположить в другом столбце. Буду очень признателен за помощь.
Можно так (для примера из A в С слова из первых десяти ячеек переносятся):
Application.CutCopyMode = False
j = 1
For i = 1 To 10
Range("A" + Trim(Str(i))).Select
If Range("A" + Trim(Str(i))) <> "" Then
Selection.Copy
Range("C" + Trim(Str(j))).Select
ActiveSheet.Paste
j = j + 1
End If
Next
Application.CutCopyMode = False
j = 1
For i = 1 To 10
Range("A" + Trim(Str(i))).Select
If Range("A" + Trim(Str(i))) <> "" Then
Selection.Copy
Range("C" + Trim(Str(j))).Select
ActiveSheet.Paste
j = j + 1
End If
Next