'Menggabungkan Sel' dalam sebuah tabel

Saya memiliki lembar excel yang memiliki sejumlah entitas yang ditentukan oleh 'Nomor Pekerjaan' mereka. Namun, saya memerlukan beberapa baris per pekerjaan yang artinya kolom tersebut memiliki duplikat, seperti pada

Apakah ada cara untuk menggabungkan setiap kelompok nomor pekerjaan yang identik sehingga mereka adalah baris 'tunggal'? adalah tata letak yang disukai.

Catatan: Setiap pekerjaan dijamin menjadi 3 baris, sehingga akan selalu mengikuti pola yang sama. Apakah ada cara untuk melakukan ini?

microsoft-excel microsoft-excel-2013

— Maxim Srour
sumber

Anda bisa menggunakan VBA untuk menggabungkan sel dan memusatkan konten.

— Ron Rosenfeld

Yah alasan saya ingin menggunakan tabel untuk ini adalah agar rumus di kolom lain bisa diisi banjir keluar. Saya tidak 100% yakin bagaimana saya akan mengaturnya di VBA

— Maxim Srour

Anda tidak bisa menggabungkan sel dalam tabel . Apakah harus menjadi satu?

— Daniel B

Bisakah Anda menyajikan tampilan yang diinginkan dalam tabel pivot tabular terpisah?

— Mark Fitzgerald

Idealnya itu adalah tabel, karena ada kolom terhitung di seluruh, dan mengingat bahwa hanya menambahkan 'baris' di akhir tidak akan memperpanjang rumus, itu membuat sulit bagi pengguna lembar excel untuk bekerja dengannya. Saya pada dasarnya mencoba untuk menyederhanakan lembar sehingga mereka tidak dapat membuat banyak kesalahan, dan mengurangi redundansi data. @ MarkFitzgerald tidak ada cara untuk ini menjadi tabel pivot. Saya telah bereksperimen dengan penggunaannya, tetapi itu tidak berhasil

— Maxim Srour

Jawaban:

Coba kode ini:

Sub Test() TitleRow = 1 'if title contain more than one row, change the value 1 to the actual number of rows i = 0 Application.DisplayAlerts = False Do Set StartCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 1)) Set EndCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 3)) With ActiveSheet.Range(StartCell, EndCell) .Merge .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With i = i + 1 Loop Until Range("A" & (TitleRow + 3 * i) + 1) = "" Application.DisplayAlerts = True End Sub

— Lee
sumber

-1

Ini dapat dilakukan dengan mudah menggunakan makro atau VBA, Edit kode di bawah ini dalam VBA sesuai kebutuhan Anda.

Rentang ("A1: A3"). Pilih Dengan Pilihan .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = Salah .Orientasi = 0 .AddIndent = Salah .IndentLevel = 0 .ShrinkToFit = Salah .ReadingOrder = xlContextMenghasilkan Konteks dengan xLContext. Selection.Merge Dengan Selection .HorizontalAlignment = xlCenter

— Stuart
sumber

Range("A1:A3")mendefinisikan rentang sebagai absolut. Karena saya perlu melakukannya untuk setiap kelompok baris, bagaimana saya melakukannya?

— Maxim Srour