Напр
A1:I
A2:am
A3:a
A4:boy
Я хочу об'єднати їх усі в одну комірку "Iamaboy".
Цей приклад показує, як 4 комірки об'єднуються в 1 комірку, однак у мене багато комірок (більше 100), я не можу вводити їх одну за одною, використовуючи A1 & A2 & A3 & A4те, що я можу зробити?
Відповіді:
Я представляю вам свою функцію ConcatenateRange VBA (дякую Жану за пораду щодо іменування!). Це займе діапазон комірок (будь-якого виміру, будь-якого напрямку тощо) і об’єднає їх у єдиний рядок. Як необов’язковий третій параметр, ви можете додати розділювач (наприклад, пробіл або сереровані коми).
У цьому випадку ви б написали це, щоб використати його:
=ConcatenateRange(A1:A4)
Function ConcatenateRange(ByVal cell_range As range, _
Optional ByVal separator As String) As String
Dim newString As String
Dim cell As Variant
For Each cell in cell_range
If Len(cell) <> 0 Then
newString = newString & (separator & cell)
End if
Next
If Len(newString) <> 0 Then
newString = Right$(newString, (Len(newString) - Len(separator)))
End If
ConcatenateRange = newString
End Function
ConcatenateRange! Дурна CONCATENATEфункція Excel не приймає діапазон як вхідні дані, лише перелік окремих комірок як окремі аргументи ...
Else newString = newString & (separator & Space(1))оскільки мені потрібно зберегти фіксовану ширину в моєму результуючому рядку.
Якщо ви віддаєте перевагу робити це без VBA, ви можете спробувати наступне:
Осередок B999 тепер міститиме зв’язаний текстовий рядок, який ви шукаєте.
Усередині CONCATENATEви можете використовувати, TRANSPOSEякщо розгорнути його ( F9), а потім видалити навколишні {}дужки, як це рекомендується
=CONCATENATE(TRANSPOSE(B2:B19))
Стає
=CONCATENATE("Oh ","combining ", "a " ...)
Можливо, вам доведеться додати власний роздільник в кінці, скажімо, створіть стовпець C і транспонуйте цей стовпець.
=B1&" "
=B2&" "
=B3&" "
У простих випадках ви можете використовувати наступний метод, який не вимагає створення функції або копіювання коду в кілька комірок:
У будь-яку комірку напишіть наступний код
=Transpose(A1:A9)
Де A1: A9 - це комірки, які ви хотіли б об’єднати.
F9Після цього клітинка буде містити рядок:
={A1,A2,A3,A4,A5,A6,A7,A8,A9}
Джерело: http://www.get-digital-help.com/2011/02/09/concatenate-a-cell-range-without-vba-in-excel/
Оновлення: одна частина може бути неоднозначною. Не виходити з комірки означає, що ваша комірка знаходиться в режимі редактора. Крім того, ви можете натиснути F9, перебуваючи в панелі редактора комірок (зазвичай це можна знайти над таблицею)
Використовуйте вже існуючу Joinфункцію VBA . Функції VBA не доступні в Excel, тому я обгортаю Joinвизначену користувачем функцію, яка забезпечує її функціональність. Найпростіша форма:
Function JoinXL(arr As Variant, Optional delimiter As String = " ")
'arr must be a one-dimensional array.
JoinXL = Join(arr, delimiter)
End Function
Приклад використання:
=JoinXL(TRANSPOSE(A1:A4)," ")
введено як формулу масиву (з використанням Ctrl- Shift- Enter).
Тепер JoinXLприймає лише одновимірні масиви як вхідні дані. В Excel діапазони повертають двовимірні масиви. У наведеному вище прикладі TRANSPOSEперетворює двовимірний масив 4 × 1 у одновимірний масив із 4 елементів (це задокументована поведінка, TRANSPOSEколи він подається одновимірним двовимірним масивом).
Для горизонтального діапазону вам доведеться зробити подвійне TRANSPOSE:
=JoinXL(TRANSPOSE(TRANSPOSE(A1:D1)))
Внутрішній TRANSPOSEперетворює двовимірний масив 1 × 4 у двовимірний масив 4 × 1, який зовнішній TRANSPOSEпотім перетворює в очікуваний 4-елементний одновимірний масив.
Це використання TRANSPOSE- добре відомий спосіб перетворення 2D-масивів у 1D-масиви в Excel, але це виглядає жахливо. Більш елегантним рішенням було б приховати це у функції JoinXLVBA.
Для тих, хто має Excel 2016 (і я припускаю наступні версії), тепер існує безпосередньо функція CONCAT , яка замінить функцію CONCATENATE .
Тож правильний спосіб зробити це в Excel 2016:
=CONCAT(A1:A4)
який дасть:
Я хлопець
Для користувачів старших версій Excel інші відповіді актуальні.
CONCATфункція
Для Excel 2011 на Mac все інше. Я зробив це як триступеневий процес.
=B1. Для наступного рядка до рядка N формула =Concatenate(",",A2). У підсумку ви отримаєте:QA , Секулі , Тестування , Applitools , Візуальне тестування , Автоматизація тестів , Селен
=B1. Для всіх інших рядків до N формула має формулу =Concatenate(C1,B2). І ви отримуєте:QA, Секулі QA, Sekuli, Тестування QA, Sekuli, Testing, Applitools QA, Sekuli, тестування, Applitools, візуальне тестування QA, Sekuli, тестування, Applitools, візуальне тестування, автоматизація тестів QA, Sekuli, тестування, Applitools, візуальне тестування, автоматизація тестів, селен
Останньою коміркою списку буде те, що ви хочете. Це сумісно з Excel у Windows або Mac.
=CONCATENATE(B1;",";A2). Потім вам потрібно перетягнути праву крапку вниз у клітинку для всіх рядків, і результатом буде останнє значення
Я використовую CONCATENATEметод, щоб взяти значення стовпця і обернути навколо них лапки зі стовпцями між ними, щоб швидко заповнити WHERE IN ()речення оператора SQL.
Я завжди просто набрати , =CONCATENATE("'",B2,"'",",")а потім вибрати , що і перетягніть його вниз, що створює =CONCATENATE("'",B3,"'",","), =CONCATENATE("'",B4,"'",",")і т.д. , то виділіть всю цю колонку, скопіюйте вставити в текстовий редактор і вставити назад , якщо це необхідно, таким чином , позбавивши поділ рядків. Це працює, але знову ж таки, як одноразова угода, це не є гарним рішенням для тих, хто постійно потребує цього.
Я знаю, що це справді давнє запитання, але я намагався зробити те саме, і натрапив на нову формулу в Excel, яка називається "TEXTJOIN".
Для питання наступна формула вирішує проблему
=TEXTJOIN("",TRUE,(a1:a4))
Підпис "TEXTJOIN" пояснюється як TEXTJOIN (роздільник, ignore_empty, text1, [text2], [text3], ...)