Aslında tek satırda da sorun çıkmamalıydı

Tek satır olduğunda almıyor hocam 2 ve daha fazla olduğunda istediğim şekilde oluyor. Ben çok sayıda dosya metni ekleyeceğim için fazlasıyla karşılıyor. Emeğinize sağlık.

---

Hocam birde A sütununda dosya yolu boşluklu oluyor satır ekleme olduğunda. Özel git - Boşlukları seç - Üstteki ile doldur (Ctrl+Enter) şeklinde yapıyorum ama bunu kod ile yapabilir miyiz? B sütünundaki son dolu hücreye karşılık gelecek şekilde.

Sayfa1.Cells(xSatir, 1) = xFilePath satırını for döngüsünün içine alarak dener misiniz?

Evet hocam 'xSatir = xSatir + 1' satırından önceki satıra ekledim oldu. Baya uzun bir işlem kısaldı. Teşekkür ediyorum.

Rica ederim
İyi çalışmalar