Contohnya: Kandungan sel A1 ialah: Guru
Kandungan sel B1 ialah: Hello
Anda ingin menggabungkan kandungan sel A1 dan B1 menjadi: Hello cikgu, maka formula C1 ialah: =A1&B1
Itu sahaja!
Jika anda telah memasuki dua sel dan ingin menggabungkan kandungan, maka anda boleh mengikuti kaedah saya di bawah:
Semua orang tahu bahawa dalam EXCEL, apabila beberapa sel digabungkan menjadi satu sel, fungsi gabungan EXCEL hanya boleh mengekalkan kandungan satu sel di sudut kiri atas, dan kandungan sel lain akan dibuang. Kadang-kadang kita perlu menyimpan semua kandungan yang digabungkan ke dalam satu sel Di bawah adalah makro VBA yang saya buat untuk mencapai fungsi ini.
Mula-mula tekan kombinasi kekunci ALT+F11 untuk membuka tetingkap VBA, tekan menu atas "Insert - Module" untuk memasukkan modul, dan salin kod berikut ke dalamnya:
Sub cantuman 1()
Application.DisplayAlerts = Palsu
Tetapkan tt = Pemilihan 'Tetapkan kawasan yang dipilih
a = tt.Rows.Count 'Bilangan baris pilihan
x = tt.Baris 'Nombor baris pertama
y = tt.Lajur 'Nombor lajur
s = tt.Columns.Count - 1 'Kurangkan bilangan lajur sebanyak 1
Untuk j = x Kepada x + a - 1
Untuk i = 1 Hingga s
Sel(j, y) = Sel(j, y) & Sel(j, y + i)
Seterusnya
Julat(Sel(j, y), Sel(j, y + s)).Gabung 'Gabung
Seterusnya
Application.DisplayAlerts = Benar
Tamat Sub
Sub merge2()
t = ""
Tetapkan tt = Pemilihan
x = tt.Baris 'Nombor baris pertama
y = tt.Lajur 'Nombor lajur
Untuk Setiap Pilihan
t = t & a.Nilai
a.Nilai = ""
Seterusnya
Sel(x, y) = t
Pemilihan.Gabung
Selection.WrapText = Benar 'Balut garisan secara automatik
Tamat Sub
Selepas menyalin, tutup tetingkap ini, kembali ke EXCEL, tekan AIT+F8, dan klik Laksanakan!
Semoga ia dapat membantu anda!
Sub aa()
'Isih
arr = Julat("D3:M9").Nilai
Untuk i = 1 Ke UBound(arr, 1)
Untuk j = 1 Ke UBound(arr, 2) - 1
Untuk k = j + 1 Ke UBound(arr, 2)
Jika arr(i, k)
tmp = arr(i, j)
arr(i, j) = arr(i, k)
arr(i, k) = tmp
Tamat Jika
Seterusnya
Seterusnya
Seterusnya
Untuk i = 1 Ke UBound(arr, 1)
x = Sel(i + 2, 2)
f = Salah
s = arr(i, 1)
Untuk j = 1 Ke UBound(arr, 2)
Jika arr(i, j) = x Maka f = Benar 'Sama ada untuk mengisi merah
Jika j > 1 Kemudian 'Alih keluar pendua
Jika arr(i, j) arr(i, j - 1) Maka
s = s & "," & arr(i, j)
Tamat Jika
Tamat Jika
Seterusnya
Tetapkan rg = Julat("N" & (i + 2))
rg.Nilai = s
Jika f Kemudian rg.Interior.ColorIndex = 3
Seterusnya
Tamat Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub cantumkan sel secara automatik dan ()
Application.ScreenUpdating = Palsu
j = Julat("F"& Baris. Kiraan).Tamat(3).Baris
Julat("G3:G"& j).NyahGabung
Julat("G3:G"& j).JelaskanKandungan
n = Julat("F3")
m = 3
Fori = 4 Toj
IfRange("B"& i) = ""Then
n = n + Julat("F"& i)
Lain
Julat("G"& i - 1) = IIf(n = 0, "", n)
Ifm
n = Julat("F"& i)
m = saya
EndIf
Seterusnya
Julat("G"& i - 1) = IIf(n = 0, "", n)
Ifm
Application.ScreenUpdating = Benar
EndSub
Buka dokumen excel yang perlu dicantumkan dan cari sel objek.
Gunakan penyambung aksara:
Gunakan penyambung aksara "&" untuk menyambung. Kaedah ini digunakan apabila menggabungkan data daripada beberapa sel. Contohnya: B1=A1&A2;B1=A1&A2&A3, satu tolakan. Lihat gambar untuk operasi tertentu.
Gunakan fungsi teks:
Gunakan fungsi teks CONCATENATE() untuk beroperasi, contohnya: CONCATENATE(A1,A2,A3,......A255), walau bagaimanapun: Fungsi CONCATENATE boleh menggabungkan sehingga 255 rentetan teks ke dalam satu rentetan teks. Sertai item boleh berupa teks, nombor, rujukan sel atau gabungannya. Sebagai contoh, jika lembaran kerja anda mengandungi nama pertama seseorang dalam sel A1 dan nama belakangnya dalam sel B1, anda boleh menggabungkan dua nilai ke dalam sel lain dengan menggunakan formula berikut.
Operasi khusus adalah seperti yang ditunjukkan dalam gambar.
Arahan penggunaan fungsi:
HUBUNGKAN(teks1, [teks2], ...)
Sintaks fungsi CONCATENATE mempunyai parameter berikut (Parameter: nilai yang menyediakan maklumat untuk operasi, peristiwa, kaedah, sifat, fungsi atau prosedur.):
Teks1 diperlukan. Item teks pertama yang akan digabungkan.
Teks2, ... pilihan. Item teks tambahan, sehingga 255 item. Istilah mesti dipisahkan dengan koma.
Nota Anda juga boleh menggunakan operator pengiraan ampersand (&) dan bukannya fungsi CONCATENATE untuk menyertai item teks. Sebagai contoh, =A1 & B1 mengembalikan nilai yang sama seperti =CONCATENATE(A1, B1).
Gunakan fungsi maklumat:
FONETIK () beroperasi untuk mendapatkan rentetan yang mewakili maklumat pinyin, terutamanya digunakan untuk bahasa Jepun, ia tidak boleh menggunakan nombor. Operasi khusus ditunjukkan dalam rajah.
Penerangan fungsi maklumat:
FONETIK(rujukan)
Sintaks fungsi FONETIK mempunyai parameter berikut (Parameter: nilai yang menyediakan maklumat untuk operasi, peristiwa, kaedah, sifat, fungsi atau prosedur.): Rujukan Diperlukan. Rentetan teks atau rujukan kepada sel tunggal atau julat sel yang mengandungi rentetan teks furigana.
Penerangan: Jika rujukan ialah julat sel, kembalikan rentetan teks furigana dalam sel sudut kiri atas julat itu. Jika rujukan ialah julat sel bukan bersebelahan, nilai ralat #N/A akan dikembalikan.
Berbilang jenis data untuk digabungkan:
Kaedah ini terutamanya menggabungkan kandungan data aksara dan data berangka.
1. Jika data berangka dan data aksara hendak digabungkan, anda mesti memformat data berangka untuk digabungkan dan menukarnya kepada jenis aksara (jenis teks).
2 Fungsi FONETIK (rujukan) boleh dikendalikan menggunakan kawasan data, yang lebih mudah.
3 Fungsi CONCATENATE(teks1, [teks2], ...) mesti ditambah sel demi sel.
4 Penyambung aksara "&" mesti digunakan dalam setiap sel yang digabungkan.
Menggunakan kaedah VBA untuk mencapai:
Atas ialah kandungan terperinci Bagaimana untuk menggabungkan kandungan dua sel ke dalam kandungan satu sel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!