В този урок ще разгледаме различните начини, по които можете да обединявате клетки, използвайки VBA.
Обединяване на клетки с помощта на VBA
Можете да обедините клетки във VBA, като използвате метода Range.Merge. Следният код ще обедини клетки A1: C1:
| 12345 | Sub MergingCells ()Диапазон ("A1: C1"). ОбединяванеEnd Sub |
Резултатът е:
Разделете клетките с помощта на VBA
Можете да премахнете обединен диапазон от клетки, като използвате метода Range.UnMerge. Да предположим, че сте обединили клетъчния диапазон A1: D1. Можете да използвате една от препратките към клетки в диапазона, за да обедините клетките. Следният код ви показва как да обедините клетки A1: D1, в този случай използваме клетка B1:
| 12345 | Sub UnmergeCells ()Диапазон ("B1"). ДезактивиранеEnd Sub |
Още примери за сливане
Обединяване на редове с помощта на VBA
Можете да обедините редове с помощта на VBA, като посочите номерата на редовете, които искате да обедините. Имаме текста в клетка A1, показан по -долу:
Следният код ще обедини редове 1-4:
| 12345 | Sub MergeRows ()Обхват ("1: 4"). ОбединяванеEnd Sub |
Резултатът е:
Обединяване на колони с помощта на VBA
Можете да обединявате колони с помощта на VBA и буквите на колоните. Следният код ще обедини колони A: C.
| 12345 | Sub MergeColumns ()Диапазон ("A: C"). ОбединяванеEnd Sub |
Резултатът е:
Обединяване и центриране на съдържанието на клетката хоризонтално
Можете да обединявате и центрирате съдържанието на клетката хоризонтално в диапазона от клетки. Трябва да обедините клетките, които ви интересуват, и също така да настроите свойството хоризонтално подравняване на обекта диапазон на център. Имаме текст в клетка A1, както е показано по -долу:
Следният код ще обедини клетъчния диапазон A1: D1 и ще центрира съдържанието на клетка A1 хоризонтално в този диапазон от клетки:
| 123456 | Sub MergeandCenterContentsHorizontally ()Диапазон ("A1: D1"). ОбединяванеДиапазон ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Резултатът е:
Обединяване и центриране на съдържанието на клетката вертикално
Можете да обединявате и центрирате съдържанието на клетката вертикално в диапазона от клетки. Трябва да обедините клетките, които ви интересуват, и също така да настроите свойството вертикално подравняване на обекта диапазон на център. Имаме текст в клетка A1, както е показано по -долу:
Следният код ще обедини клетъчния диапазон A1: A4 и ще центрира съдържанието на клетка A1 вертикално в този диапазон от клетки:
| 123456 | Sub MergeandCenterContentsVertical ()Диапазон ("A1: A4"). ОбединяванеДиапазон ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Резултатът е:
Обединяване на клетки в цял диапазон от клетки
Можете да обединявате клетки в диапазон от клетки. Трябва да зададете незадължителния параметър Across на метода Merge на True. Имаме текст в клетка A1, както е показано по -долу:
Следният код ще обедини клетъчния диапазон A1: D1:
| 12345 | Sub MergeCellsAcross ()Диапазон ("A1: D1"). Обединяване през: = ВярноEnd Sub |
Резултатът е:
