Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як перетворити коментарі на вміст комірки в Excel?

Припустимо, у мене на робочому аркуші є комірки діапазону, заповнені коментарями, і тепер я хочу перетворити всі коментарі на вміст комірок, щоб я міг їх акуратно і кругло друкувати. Чи є якісь хороші способи вирішення цього завдання?

Перетворюйте коментарі на вміст комірки за допомогою функції, яку визначає користувач

Перетворюйте коментарі на вміст комірки за допомогою коду VBA

Перетворюйте коментарі на вміст комірок за допомогою Kutools для Excel

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Перетворюйте коментарі на вміст комірки за допомогою функції, яку визначає користувач


За допомогою цього методу вам потрібно спочатку створити визначену функцію, а потім застосувати визначену формулу для перетворення коментарів у вміст комірки. Ви можете закінчити це, виконавши такі дії:

1Натисніть Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модулі, та введіть наступну функцію в Модуль:

Функція GetComments (pRng As Range) як рядок 'Updateby20140509 Якщо ні pRng.Comment - це нічого, тоді GetComments = pRng.Comment.Text End End If End Функція

2.прес Ctrl + S щоб зберегти функцію.

3Потім введіть наступну формулу “= GetComments (A1)”У будь-якій порожній комірці, у цьому випадку я буду використовувати комірку E1. Дивіться знімок екрана:

doc-comments-to-cell1

4, натисніть вводити ключ. І виділіть комірку E1, а потім перетягніть маркер заповнення через діапазон комірок, які ви хочете містити у цій формулі. І всі коментарі перетворюються на вміст комірки. Дивіться знімок екрана:

doc-comments-to-cell2


стрілка синя права міхур Перетворюйте коментарі на вміст комірки за допомогою коду VBA

Якщо ви знаєте код VBA, наступний короткий код також може допомогти вам перетворити коментарі у вміст комірки.

1. Виберіть діапазон, який потрібно перетворити на вміст комірки;

2. Клацання Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модуліта введіть наступний код в Модуль:

Sub CommentToCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3. Потім натисніть  doc-множення-розрахунок-3для запуску коду. І виберіть діапазон, який потрібно перетворити, потім клацніть OK, а всі вибрані коментарі перетворені у вміст комірок у відповідних комірках.


doc-comments-to-cell3 -2 doc-comments-to-cell4

примітки: Якщо ви не хочете коментарів, ви можете їх видалити.


стрілка синя права міхур Перетворюйте коментарі на вміст комірок за допомогою Kutools для Excel

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів.Отримати зараз .

повне г, повне г,, показали, від, номер, XNUMX Перетворити коментар та комірку of Kutools для Excel це зручний та корисний інструмент, який може допомогти вам вирішити багато проблем щодо коментарів.

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Виберіть діапазон, для якого потрібно імпортувати коментарі до комірок.

2. Клацання Кутулс > більше > Перетворити коментар та комірку, див. скріншот:

doc-comments-to-cells-5

3, в Перетворити коментар та комірку діалогове вікно, виберіть Перетворення коментарів у вміст комірок. Дивіться знімок екрана:

doc-comments-to-cells-6

4. Потім натисніть OK. Тепер усі вибрані коментарі перетворюються на вміст комірки у вихідному діапазоні.

Для отримання більш детальної інформації про Перетворити коментар та комірку, Будь ласка, відвідайте Перетворити опис функції коментаря та комірки.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rufo · 1 years ago
    Hi, The first function in a module does the job only once: when I write or drag the formula down. If I go back to change any of the comment it does not update the destination cell with the new comment. For example let's say I have a comment in A1, then when I place the formula in cell B1, it will show me the A1's comment only the first time. If I go back and change the A1 comment, the cell B1 does not get updated. I tried "Calculate Now" or F9 and nothing happens. I saved the file and opened again and nothing, cell B1 stays with the old comment. It is like the function is dead. Now, if I enter or change anything in the cell A1 itself (not the comment), like adding an space in the end, it will immediately update the comment. I'm using Office 2019 Pro.
  • To post as a guest, your comment is unpublished.
    ali e · 1 years ago
    thanks very musch
  • To post as a guest, your comment is unpublished.
    Shahid · 1 years ago
    great site
  • To post as a guest, your comment is unpublished.
    Tim · 3 years ago
    is there a way to do this without the title of a comment or the non bold writing?
  • To post as a guest, your comment is unpublished.
    Raymond Bergmark · 3 years ago
    Great tip, thanks for sharing!
  • To post as a guest, your comment is unpublished.
    Nikhil · 4 years ago
    Perfect! Thank You
  • To post as a guest, your comment is unpublished.
    Eric · 4 years ago
    You are a star!!! thanks
  • To post as a guest, your comment is unpublished.
    Lis · 4 years ago
    It does not automatically update when I change the comment. How do I change this?
    Thanks
    • To post as a guest, your comment is unpublished.
      Rufo · 1 years ago
      Same problem here. Changing the comment does not trigger the calculations. Forcing the calculation (F9) does not work. Saving and load the file does not work. However, changing a cell content will trigger the calculations.
  • To post as a guest, your comment is unpublished.
    Casey Norman · 4 years ago
    You are my HERO!!!!!!!!!!!!!!!!!!!!!! Thank You Thank You Thank You
  • To post as a guest, your comment is unpublished.
    Henrique · 4 years ago
    Hi.
    I tried this code and it worked right. But I have a little problem: can I use this code combined with VLOOKUP? I tried but I didn't get anything.
    If you can help me, I'll be thankful.
    I'm brazilian. If I wrote something wrong, I apologise.
    Thanks!
  • To post as a guest, your comment is unpublished.
    Szpepa · 5 years ago
    It's worked :)
    Thanks!
    Good job
  • To post as a guest, your comment is unpublished.
    Graham · 5 years ago
    The 1400 cell comments took but a few minutes. Wow!
    Thank you.
  • To post as a guest, your comment is unpublished.
    Arul · 5 years ago
    good job thank u so much
  • To post as a guest, your comment is unpublished.
    Paresh · 5 years ago
    Hi!

    Awesome, thank you so much for this post! It helped me save a day! :)

    Thanks!
  • To post as a guest, your comment is unpublished.
    Al Conte · 6 years ago
    Does not seem to work. I am using Office 2013 on Windows 7. I get #Name ?

    Any clues as to what I should do? Do I have to change any elements of the code for Office 2013 version of Excel?

    Thanks
  • To post as a guest, your comment is unpublished.
    mansour sadeghi · 6 years ago
    you are great
    excellent
    thank you very much
    thank you
  • To post as a guest, your comment is unpublished.
    AusSteelMan · 7 years ago
    Hi,
    When i run the code "Convert...VBA code" above I get an odd outcome.
    For a range of cells (B2:N2) each that have comment texts (that are a formula), when the ode runs it works properly only for ColB, ColD, ColF, ColH, ColJ, ColL, ColN - every second column!
    If I run it just for ColB it works. But if I run it for ColC it does not. Note: the formulas are almost identical.
    The cell simply has no value/string from the comment (so i don't think it is a formula issue.
    Same applies to every other column. If it worked in the range it works on its own and not if it didn't.
    Any suggestions?

    Before I post, I thought I'd try a new workbook as a test.
    In A1 entered a formula "=ROW()+COLUMN()". Filled to range C3.
    Ran this code:
    Public Sub CellFormulaToCellComment()
    'Written by: Darren R.... 05 Nov 2014
    'Will copy the cell formula to the cell comments
    'Note: will delete any existing comments, so be careful

    Dim CellInRange As Range
    Dim CellComment As String

    For Each CellInRange In Selection
    If CellInRange.HasFormula Then
    CellComment = CellInRange.Formula
    CellInRange.ClearComments
    CellInRange.AddComment (CellComment)
    End If
    Next
    End Sub
    to copy the formulas into the comments for each cell.
    Copy PasteSpecial Comments into D4:F6.
    Now have empty cells with comments
    Then ran the "CommentToCell" sub and it worked in every cell.
    So now I am really stumped.

    Furthermore, I found some info about NoteText being outdated and replaced with Cell.Comment but swapping out the commands didn't work and I wasn't sure how to change it all to work

    Any thoughts would be appreciated.
    Thanks,
    Darren
  • To post as a guest, your comment is unpublished.
    Arthur · 7 years ago
    I always thought I know most things about Excel. But I never knew that you can write and use user defined functions as if they were native to Excel. Thank you for my lesson of the day.
  • To post as a guest, your comment is unpublished.
    Phil Payne · 7 years ago
    Worked at first but then returned a #NAME? error.
  • To post as a guest, your comment is unpublished.
    Phil Payne · 7 years ago
    "Convert comments to cell contents with User Defined function"

    At first this worked and I saved the workbook and closed it. The next time I opened the work book every cell which previously shown cell comments correctly now shows #NAME? error!

    How can this be prevented?
  • To post as a guest, your comment is unpublished.
    Sean · 7 years ago
    Works great, what a nice solution! Thanks.
  • To post as a guest, your comment is unpublished.
    Stephen · 7 years ago
    God you are a saviour!!!! thanks for this.
  • To post as a guest, your comment is unpublished.
    Ron Mote · 7 years ago
    I haven't tried this yet but it appears to do exactly what I need to do. Thanks