Як об’єднати два стовпці в один із змінними значеннями в Excel?
Ось два стовпці на аркуші, що полягає в тому, щоб об’єднати ці два стовпці в один стовпець із альтернативними значеннями, як показано нижче. Як ви можете швидко впоратися з роботою, не змінюючи їх по черзі?
Об’єднайте два стовпці в один із змінними значеннями за кодом VBA
Об’єднайте два стовпці в один із змінними значеннями за допомогою Kutools для Excel
Об’єднайте два стовпці в один із змінними значеннями за кодом VBA
Щоб об'єднати два стовпці в один із змінними значеннями, в Excel немає вбудованої функції, крім коду VBA.
1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікно. Клацніть Insert > Модулі щоб створити новий порожній модуль.
2. Скопіюйте та вставте код нижче в модуль.
VBA: Об’єднайте два стовпці в один із альтернативою значення
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub
3. прес F5 і виберіть два стовпці, які потрібно об’єднати, у діалогове вікно, що з’являється.
4. клацання OK, у другому діалоговому вікні виберіть клітинку для розміщення результату.
5. клацання OK. Тепер вибрані два стовпці були об’єднані в один із альтернативними значеннями.
Об’єднайте два стовпці в один із змінними значеннями за допомогою Kutools для Excel
Якщо у вас є Kutools для Excel встановлений в Excel, його Transform Range Утиліта може вирішити цю роботу лише за 3 простих кроки.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)
1. Виберіть стовпці (два або більше), які потрібно об’єднати, натисніть Кутулс > Transform Range.
2 В Transform Range діалогове вікно, перевірте Range to single column і натисніть Ok.
3. Виділіть комірку, щоб розмістити результат у діалоговому вікні. Клацніть OK.
Тепер стовпці об’єднані в одне, і значення мають альтернативний порядок.
Діапазон транспонування
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!