将数据从右侧的单元格移动到空白单元格中

Question

我有一个包含16列和300行的数据矩阵。这个数据我从FORTRAN代码中得到它。所以我在第一列中得到一些空白单元格，然后该行将有17列。现在我想将数据转换为空白单元格，使矩阵均匀。

我不是VBA的专家。如果你帮我解决这个问题会很棒。

到目前为止我已经

了

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

谢谢。

Answer 1

从这开始：

运行此：

{{1}}

会产生这个：