Lütfen bunun bellekten yazıldığını ve test edilmediğini unutmayın (şu anda Excel'e erişimim yok); Düşünmeniz ve uyarlamanız gerekebilir!
Bir Makro Kaydetme:
- Seçimi içeren hücreye yerleştirin
a
- 'Makro kaydet' seçeneğini bulun ve yakınınızda "Göreli referanslar kullan" seçeneğini görün; seçeneğin aktif olmasını sağlayın.
- Makroyu kaydetmeye başlayın.
- Makro için bir kısayol tuşu seçin (örn. ÜST KRKT + CTRL + Q)
- Şimdi, İLK satır için hücreleri ve içeriklerini hareket ettirmek için gerekli eylemleri yapın (klavye kullanımı tercih edilir!)
- İmlecin üstündeki kaydı sonlandırdığınızdan emin olun.
b
Artık kısayol tuşu, imlecin üzerinde bulunduğu satır için aynı işlemleri tekrarlıyor.
Ayrıca, boş olmayan satırlar için yinelenecek makroyu nasıl değiştireceğiniz:
Alt + F8, yukarıda oluşturduğunuz makroyu düzenlemeyi seçebileceğiniz mevcut makroların bir listesini gösterir.
Makroyu kaydeden bir hücreyi DÜZENLENİRSİNİZ, makroda aşağıdakine benzer bir ifade alacaksınız:
ActiveCell.value="blabla"
... bu kolayca değiştirilir
if ActiveCell.value<>"" then goto Repeat
Elbette hangisi makro kodun sonunda, "end sub" dan önce gelir.
Sonra Repeat:
, tekrarlar için nerede yeniden başlatılacağına ilişkin bir işaretleyici olarak en üste bir çizgi ekleyin
(bu bir "etiket" dir, burada gidersem "goto" yardımına bakın) .
Yukarıdakileri doğru yaptıysanız, makro hücrede "bittiği" bir şey olan tüm satırlar için tekrarlanacaktır.
Mutlu transposing!