Обединете Excel клетки, без да губите съдържание

Anonim

Как да направите едно от две съдържания на клетки в Excel

Excel предлага възможност за обобщаване на клетките. С функцията ФОРМАТИРАНЕ - КЛЕТКИ - ПОГРЕЖДАНЕ - КОМБИНИРАНЕ НА КЛЕТКИ, можете да комбинирате две клетки в едно цяло. Но какво правите, когато в двете клетки има съдържание, което не искате да загубите? Използвайте VBA, за да разрешите проблема.

Примерът на следната фигура показва кратък списък с имена:

Искате да комбинирате двете съдържания от колони A и B в първата колона A и след това да комбинирате двете клетки от колони A и B в една клетка. Следният макрос върши тази работа:

Обединяване на подклетки ()

Затъмнена линия като цяло число

Ред = 1

Докато не (IsEmpty (клетки (ред, 1)))

Клетки (ред, 1) = Клетки (ред, 1) & "" & Клетки (ред, 2)

Клетки (ред, 2) .ClearContents

Диапазон (клетки (ред, 1), клетки (ред, 2)). Обединяване

Линия = ред + 1

Уенд

Колони (1). AutoFit

End Sub

Макросът преминава през редовете от ред 1, докато колона А е празна. За всяко непразно съдържание съдържанието на A и B е прикрепено едно към друго (разделено с интервал). Тогава двете клетки А и В са свързани, за да образуват една клетка. Следната фигура показва резултата: