Код копирует выбранную ячейку и удаляет лишние кавычки:
Как сделать чтобы можно было скопировать выбранный пользователем диапазон?
Т.е. если выбрать весь "Столбец4", то должно получиться:
Стр_1_строка 1
Стр_1_строка 2
Стр_1_"'строка 3'"
"Стр_2_строка 1
Стр_2_строка 2
Стр_2_"'строка 3'"
"Стр_3_строка 1
Стр_3_строка 2
Стр_3_"'строка 3'"
Код |
---|
Sub test_actv_cell() Dim s As String With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") s = ActiveCell.Value ' ðàáîòàåò .SetText s .PutInClipboard End With End Sub |
Т.е. если выбрать весь "Столбец4", то должно получиться:
Стр_1_строка 1
Стр_1_строка 2
Стр_1_"'строка 3'"
"Стр_2_строка 1
Стр_2_строка 2
Стр_2_"'строка 3'"
"Стр_3_строка 1
Стр_3_строка 2
Стр_3_"'строка 3'"