Ինչպե՞ս ավտոմատ կերպով միացնել միավորված բջիջները Excel- ում:

Ինչպե՞ս կարող ենք շարքերի թվերը լրացնել Excel- ում տարբեր չափերի միավորված բջիջների ցուցակում: Մեր մտքում առաջին հերթին միացնել միաձուլված բջիջները լրացնելու համար ինքնալրացման բռնիչը, բայց, այս դեպքում, մենք կստանանք հետևյալ նախազգուշական հաղորդագրությունը և չենք կարող լրացնել միավորված բջիջները:

Քանի որ լրացման բռնիչը չի աջակցում միավորված բջիջները, այստեղ ես կարող եմ խոսել այս խնդրի լուծման որոշ այլ հնարքների մասին:

Ավտոմատ համար / լրացրեք միավորված բջիջները VBA կոդով

Ավտոմատ համար / լրացրեք միավորված բջիջները VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել արագ համարակալել ընտրված միավորված բջիջները: Խնդրում ենք անել հետևյալը.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Ավտոմատ միավորված բջիջներ

Sub NumberCellsAndMergedCells()
	'Update 20141028
	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)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը թույլ կտա ձեզ ընտրել միաձուլված բջիջները, որոնք ցանկանում եք լրացնել: Տեսեք,

4, Միավորված բջիջները ընտրելուց հետո կտտացրեք OK, հիմա, ձեր ընտրած միավորված բջիջները լրացվել են հաջորդական թվերով, տես նկարի նկարը.

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ավտոմատ համարը կամ համարը համարել Excel- ում զտելուց հետո:

Ինչպե՞ս արագորեն միացնել հարակից տողերը նույն տվյալների հետ Excel- ում:

Ինչպե՞ս խցկել բջիջները և լրացնել կրկնօրինակ արժեքներով Excel- ում: