Эта простая операция - есть, например, список в колонке, и надо его сделать в одну строчку через запятую, и часто требуется, но в Экселе она не реализуется стандартными средствами - надо копировать его в Word как простой текст, а потом заменять знак абзаца ^p на запятую В Экселе это можно заменить макросом В данном случае он поставит список в последнюю колонку на 1 ячейку ниже выделенного диапазона Sub Commas() Dim x Dim S As String For Each x In Selection S = S & Chr(44) & CStr(x) Next x Cells(Selection.Row + Selection.Rows.count, Selection.Cells(Selection.Cells.count).Column) = S End Sub Как установить макрос в Эксель видео (не мое)
Эта простая операция - есть, например, список в колонке, и надо его сделать в одну строчку через запятую, и часто требуется, но в Экселе она не реализуется стандартными средствами - надо копировать его в Word как простой текст, а потом заменять знак абзаца ^p на запятую
В Экселе это можно заменить макросом
В данном случае он поставит список в последнюю колонку на 1 ячейку ниже выделенного диапазона
Sub Commas()
Dim x
Dim S As String
For Each x In Selection
S = S & Chr(44) & CStr(x)
Next x
Cells(Selection.Row + Selection.Rows.count, Selection.Cells(Selection.Cells.count).Column) = S
End Sub
Как установить макрос в Эксель видео (не мое)