Перенос комментариев Excel в ячейки со сдвигом

@supercep · Регистрация: 12.02.2016

Студворк — интернет-сервис помощи студентам

Добрый день!

Имеется код VBA(ниже), забирает комментарий из рецензии и кладет в ячейку со сдвигом + 1, если ячейка занята

Помогите, пожалуйста, переделать, чтобы переносила со сдвигом не +1, а соответствующим сдвигом от начала координат

Как пример

Рецензии в ячейке A10 и C10, а указали мы стартовый столбец G.

Комментарии должны оказаться в ячейке G10(из A10) и I10(из C10)

Спасибо!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Comments2cells()
Dim c As Range, n, m, r
  Set c = Selection.Find("*", Selection.Cells(Selection.Cells.Count), xlComments, , xlByRows, xlNext)
  If c Is Nothing Then
    MsgBox "В выделенном диапазоне нет коментов", vbInformation
    Exit Sub
  End If
  On Error Resume Next
  Set n = Application.InputBox("Выберите мышкой столбец для вставки", Type:=8)
  If Err Then
    MsgBox "Диапазон вставки не выбран", vbExclamation
    Exit Sub
  End If
  n = n.Column
  Do
    If c.Row <> r Then r = c.Row: m = n Else m = m + 1
    Cells(r, m) = c.Comment.Text
    c.Comment.Delete
    Set c = Selection.FindNext(c)
  Loop Until c Is Nothing
End Sub

@Казанский · 15.11.2018, 10:10

supercep,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Comments2cells1()
Dim c As Range, n
  Set c = Selection.Find("*", Selection.Cells(Selection.Cells.Count), xlComments, , xlByRows, xlNext)
  If c Is Nothing Then
    MsgBox "В выделенном диапазоне нет коментов", vbInformation
    Exit Sub
  End If
  On Error Resume Next
  Set n = Application.InputBox("Выберите мышкой столбец для вставки", Type:=8)
  If Err Then
    MsgBox "Диапазон вставки не выбран", vbExclamation
    Exit Sub
  End If
  n = n.Column - Selection.Column
  Do
    c.Offset(, n) = c.Comment.Text
    c.Comment.Delete
    Set c = Selection.FindNext(c)
  Loop Until c Is Nothing
End Sub

@rediffusion · 26.06.2019, 19:49

А как реализовать такое:
1. Имеем 'комментарий' в ячейке. В этой ячейке ещё есть 'записи'.
2. Как скопировать только 'комментарий' в другую ячейку. В другой ячейке есть 'записи' но они не должны затираться!
То есть Copy-Paste нужен мне.

Новые блоги и статьи Все статьи Все блоги /
Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .

@rediffusion 5 / 5 / 0 Регистрация: 13.11.2016 Сообщений: 90
	26.06.2019, 19:49
	А как реализовать такое: 1. Имеем 'комментарий' в ячейке. В этой ячейке ещё есть 'записи'. 2. Как скопировать только 'комментарий' в другую ячейку. В другой ячейке есть 'записи' но они не должны затираться! То есть Copy-Paste нужен мне. 0