Excel - Raporu biçimlendirmek için makro

Konu

İnşallah aradığımı, herkese anlamlı gelecek bir şekilde söyleyebilirim. Çalıştığım bir müşteri raporum var ve çok çirkin bir şekilde ihraç ediyor.

Bu gibi görünüyor:

 Adres Banliyö Eyalet Posta Kodu Teslimat Talimatları Telefon Numarası Faks Numarası E-posta Adresi

Yukarıdaki bilgilerin tümü A sütunundadır ve AF sütununda bilgileri olan bir makro oluşturmak istiyorum, böylece her başlık yeni bir sütuna sahip olacak.

Gerçekten temel makroları kaydedebilirim, bu yüzden muhtemelen benim için bir tane yazacak birine ihtiyacım olacak böylece basitçe * üzgünüm * kopyalayıp yapıştırabilirim.

Umarım bu birisi için gerçekten basittir ve bana yardım etmeye istekli. Herhangi bir öneri / tavsiye büyük beğeni topluyor!

Çözüm

Amaç:

Satırları bölmek bir hücredir ve her satırı aynı satırdaki yeni bir hücreye taşıyın.

Varsayımlar:

1. Veriler ROW 2'den başlar

2. Veriler A sütununda

3. A'nın yanındaki sütun, verilerin doldurulması gereken yerdir

4. Veri hücrelerindeki her satır aynı satırda yeni bir hücreye taşınmalıdır

Adımlar:

1. Varsayımları okuyun

2. Dosyanın yedeğini alın

3. ALT + F11 tuşlarına basın ve yeni bir modül ekleyin

4. Kodu yapıştırın (adımlardan sonra)

5. Kodu yürütün

Kod:

 Alt SpiltData () Dim lMaxRow Uzun Dim Kadar lRowBeanCounter Uzun Dim vPos Varyant Olarak Dim sHold Dize Dim sTemp olarak Dize Dim iCellCounter Tam Sayı Dim olarak lStartAtRow Uzun Süre lStartAtRow = 1 lMaxRows = Hücreler (Row.Count, ". xlUp) .RowBeanCounter İçin = lStartAtRow için lMaxRows'a Sırala sTemp = Hücreler (lRowBeanCounter, "A") için iCellCounter = 2 sTemp iken "" vPos = 0 vPos = InStr (1, sTemp, ChpOysa (10) = Sol (sTemp, vPos - 1) sTemp = Kesim (Orta (sTemp, vPos + 1)) Başka sHold = sTemp sTemp = "" Eğer iCellCounter = iCellCounter + 1 Hücreleri Bitirse (lRowBeanCounter, iCellCounter) = sHold LoopLongCean