Excel - Makro untuk memformat laporan

Isu

Semoga saya dapat mengatakan apa yang saya cari dengan cara yang masuk akal bagi semua orang. Saya punya laporan pelanggan yang saya jalankan dan ekspornya jelek.

Ini terlihat seperti ini:

 Alamat Suburb Negara Kode Pos Petunjuk Pengiriman Nomor Telepon Nomor Faks Alamat Email

Semua informasi di atas ada di kolom A, dan saya ingin membuat makro yang memiliki informasi di kolom AF sehingga setiap pos memiliki kolom baru.

Saya dapat merekam makro yang sangat dasar, jadi saya mungkin akan membutuhkan seseorang untuk menulis satu untuk saya sehingga saya cukup menyalin dan menempel * maaf *.

Semoga ini benar-benar sederhana untuk seseorang dan mereka bersedia membantu saya. Setiap saran / saran sangat dihargai!

Larutan

Objektif:

Membagi garis adalah sel dan memindahkan setiap baris ke sel baru di baris yang sama.

Asumsi:

1. Data mulai dari ROW 2

2. Data ada di kolom A

3. Kolom di sebelah A adalah tempat data perlu diisi

4. Setiap baris dalam sel data harus dipindahkan ke sel baru di baris yang sama

Tangga:

1. Baca asumsi

2. Buat cadangan file

3. Tekan ALT + F11 dan masukkan modul baru

4. Tempel kode (setelah langkah)

5. Jalankan kode

Kode:

 Sub SpiltData () Dim lMaxRows As Long Dim lRowBeanCounter As Long Dim vPos As Variant Dim sTempuh Dim StringTemp As String Dim iCellCounter As Integer Dim lStartAtRow As lStartAtRow = 1 lMaxRows = Cell (Rows.Count, ")" xlUp) .Row Untuk lRowBeanCounter = lStartAtRow Ke lMaxRows sTemp = Sel (lRowBeanCounter, "A") iCellCounter = 2 Lakukan Sementara sTemp "" vPos = 0 vPos = InStr (1, sTemp, Chrold (0) Jika) = Kiri (sTemp, vPos - 1) sTemp = Potong (Pertengahan (sTemp, vPos + 1)) Lain sHold = sTemp sTemp = "" Berakhir Jika iCellCounter = iCellCounter + 1 Sel (lRowBeanCounter, iCellCounter) = sHold LoopBerikutnya