Verileri sağdaki hücreden boş hücreye taşıma

Question

16 sütun ve 300 satır içeren bir veri matrisine sahibim. Bu veriyi FORTRAN kodundan alıyorum. Yani, zaman zaman ilk sütunda boş hücreler alıyorum ve o sırada bu satırın 17 sütunu olacaktı. Şimdi verileri matris üniform hale getiren boş hücrelere kaydırmak istiyorum.

VBA'da uzman değilim. Bana problemle yardım edersen çok iyi olur.

Şimdiye kadar

Sub fillBlanks(Optional ByRef currentSheet As Worksheet) 
    Dim blanx As Range 
    If currentSheet Is Nothing Then Set currentSheet = ActiveSheet 
    currentSheet.Activate 
    On Error Resume Next 
    Set blanx = Range("B1", currentSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address).SpecialCells(xl‌​CellTypeBlanks) 
    If blanx Is Nothing Then Exit Sub 
    On Error Goto 0 
    currentSheet.Range(blanx.Address).FormulaR1C1 = "=RC[1]" 
End Sub 

teşekkürler var.

Answer 1

Bununla başlayalım:

bu Running:

Sub dural() 
    For i = 1 To 15 
     With Cells(i, 1) 
      If .Value = "" Then .Delete shift:=xlToLeft 
     End With 
    Next i 
End Sub 

bu üretecek: Eğer denedi bize ne