Find a macro that automatically merges cells

Merge the same cells in column a, if you merge multiple columns, you can add a loop.

sub Automatically merge cells ().

falsefor i = 2 to range("a65536").end(xlup).row

j = i + 1

do while cells(i, 1) = cells(j, 1)j = j + 1

loopif j > i + 1 thenrange("a" & i & ":a" & j - 1).mergecells = true

i = j - 1

end if

next i

trueend sub

I think you need to use a VBA to achieve this.

Do you mean to merge the blank rows of data under the second column (secondary directory) on your graph into the rows with data at the top? If yes, read on (I'll give the following formula):

Run vba**:

sub ims()

hen = 1

for ro = 2 to range("b65432").end(xlup).row

if cells(ro,).value = "" then

range("b" & hen & ":b" & ro).select

elsehen = ro

end if

nextend sub

If you are not in the second column, modify the bold capital "b" in line 3 and 5 to be your column label, and the bold "2" in line 4 is changed to your column number [column b is 2, column c is 3, etc.].

Press the Alt+F11 key, click "Insert" - "Module", and enter the following **::

sub my_marcro()

end sub

Back to the Excel interface, click "Development Tools" - "Macro", make sure My Marcro is selected, click "Options", enter M in the small box below "Shortcuts", and click OK.

sub hbz()

dim s as string, i as integerfor i = 1 to

if i = 1 then

s =else

s = s & chr(10) &

end if

next send sub

Alt+F11 to open the VBE device, create a new module, and paste it as above**.

View-toolbar, hit in front of the form, drag a button with the left mouse button, specify the hbz macro, and then click the button to run the selected area.

Select a region and run this section of the VBA

sub hb()

str2 = ""

str1 =

for i = 2 to

str2 = str1 & chr(10) &next

selection = ""

activecell = str1 & str2end sub

I've seen this question before.,Program editing.,You can check the email in your personal information.。

The range is A to J, meaning A to J judged individually? Or just judge that a column is the same and merge columns A to J of those rows?

Is the merge of the columns individually, or are these columns all merged into one large cell?

This kind of writing really has yours.

First of all, arr & brr cannot be directly connected here, and they need to be taken out of the corresponding data in arr and brr respectively >> this can form a new one-dimensional array that is combined.

Then transpose with transpose.

arr & brr no, you have to add it up first, transpose is an array of fat, and the size is the same as the previous area.

VBA** is as follows:

option explicit

sub Merge column A into column B ().

dim i, j, v

i = 1while cells(i, 1) <""

v = cells(i, 1)

j = i + 1

while cells(j, 1) = vj = j + 1

wendj = j - 1

cells(i, 2) = cells(i, 1)if i <>j then

cells(i, 2).resize(j - i + 1, 1).merge

end if

i = j + 1

wendend sub

Truth Map:

Copy to column b first, and then merge the cells.

sub macro1()

range("f3:h6").select 'Here f3:h6 you can replace any range of cells you want to merge, or delete this line**, you select the region to merge and execute this macro is OK.

with selection

horizontalalignment = xlcenter.verticalalignment = xlcenter.wraptext = false

orientation = 0

addindent = false

indentlevel = 0

shrinktofit = false

readingorder = xlcontext.mergecells = false

end with

end sub

The security level is set to Medium, and macros are enabled when the file is opened.