Travis bertanya:
Saya mencoba memformat beberapa teks ke dalam kolom terpisah. Teks tersebut dalam satu kolom sebagai berikut:
SEBUAH Nama Perusahaan A PO BOX 1 NEWARK NJ 07101 Nama Perusahaan B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Nama Perusahaan C PO BOX 3 CHICAGO IL 60694 Nama Perusahaan D PO BOX 4 CLEARFIELD UT 84015 Nama Perusahaan E PO BOX 5 OGDEN UT 84401 Nama Perusahaan F PO BOX 6 BALTIMORE MD 21264-4351 Ketika saya memformat tes menjadi unggul, saya membuat kolom ini seperti yang diilustrasikan di atas. Saya ingin mengetahui rumus yang dapat membuat datanya muncul dalam satu baris daripada dalam beberapa baris karena di perusahaan rumus tersebut harus dihasilkan jika memberi saya yang mengikuti dalam satu baris tetapi dalam kolom yang berbeda:
Semua di BARIS yang sama
SEBUAH B C Nama Perusahaan A PO BOX 1 NEWARK NJ 07101 Saya telah menggunakan vlookups dan hlookups dan tabel pivot tetapi saya tidak tahu bagaimana cara mendapatkan tanggal jika dengan cara baris demi baris.
Saya bisa membuat nama perusahaan muncul baris demi baris dalam satu kolom dengan mengurutkan dan saya pikir saya bisa menggunakan kombinasi vlookup dengan hlookup untuk memberi saya hasil yang saya cari tetapi saya tidak tahu rumus yang tepat untuk bersarang di pencarian eter. Saya juga menguji beberapa fungsi DSUM tetapi tidak ada yang berfungsi untuk saya? Jadi tolong beri tahu saya apa atau bagaimana memperbaiki masalah saya.
Saya pikir ini dapat dengan mudah dilakukan dengan menggunakan makro. Coba yang ini.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub
