Как да конвертирате коментари в съдържание на клетка в Excel?
Да предположим, че имам диапазон от клетки, пълни с коментари в работен лист, и сега искам да конвертирам всички коментари в съдържание на клетка, така че да мога да ги отпечатам спретнато и кръгло. Има ли добри начини за решаване на тази задача?
Преобразувайте коментари в съдържание на клетка с дефинирана от потребителя функция
Преобразувайте коментари в съдържание на клетка с VBA код
Преобразувайте коментари в съдържание на клетка с Kutools за Excel
Преобразувайте коментари в съдържание на клетка с дефинирана от потребителя функция
Като използвате този метод, първо трябва да създадете дефинирана функция и след това да приложите дефинираната формула, за да конвертирате коментарите в съдържанието на клетката. Можете да го завършите като следните стъпки:
1Щракнете Софтуерен Инженер > Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете > Модулии въведете следната функция в модула:
Функция GetComments(pRng като диапазон) като низ 'Updateby20140509 If Not pRng.Comment Is Nothing Then GetComments = pRng.Comment.Text End If End Function
2.Натискане Ctrl + S за да запазите функцията.
3.След това въведете следната формула „=Получаване на коментари(A1)” във всяка празна клетка, в този случай ще използвам клетка E1. Вижте екранна снимка:
4, Натисни Въведете ключ. И изберете клетка E1, след което плъзнете манипулатора за запълване върху диапазона от клетки, които искате да съдържа тази формула. И всички коментари се преобразуват в съдържанието на клетката. Вижте екранна снимка:
Преобразувайте коментари в съдържание на клетка с VBA код
Ако знаете кода на VBA, следният кратък код също може да ви помогне да конвертирате коментари в съдържание на клетка.
1. Изберете диапазона, който искате да конвертирате в съдържание на клетка;
2. Щракнете Софтуерен Инженер > Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете > Модулии въведете следния код в модула:
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, След това кликнете 
бутон за изпълнение на кода. И изберете диапазон, който искате да конвертирате, след което щракнете OKи всички избрани коментари са преобразувани в съдържанието на клетка в съответните клетки.
 |
 |
 |
Забележка: Ако не искате коментарите, можете да ги изтриете.
Преобразувайте коментари в съдържание на клетка с Kutools за Excel
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни.Махни го сега .
- Конвертиране на коментар и клетка of Kutools за Excel е удобен и полезен инструмент, който може да ви помогне да разрешите много проблеми с коментарите.
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете диапазона, в който искате да импортирате коментарите в клетките.
2. Щракнете Kutools > Повече > Конвертиране на коментар и клетка, вижте екранна снимка:
3. В Конвертиране на коментар и клетка изберете диалоговия прозорец Преобразувайте коментари в съдържание на клетки. Вижте екранна снимка:
4, След това кликнете OK. Сега всички избрани коментари се преобразуват в съдържанието на клетка в първоначалния й диапазон.
За по - подробна информация за Конвертиране на коментар и клетка, Моля, посетете Описание на функцията за конвертиране на коментар и клетка.
Още по темата:
- Променете всички формати на коментари в клетките
- Променете името на автора на всички коментари
- Избройте всички коментари към нов работен лист или работна книга
- Намерете и заменете текст в коментарите
- Показване или скриване на всички коментари и индикатори за коментари в Excel
- Преобразувайте съдържанието на клетка в коментари в Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
