Excel填写但我的条款

Question

我基本上希望在另一列的Excel中重新创建1列主机名，但每个主机名之间有2个空格。

e.g。 A栏

A1:  hostname1
A2:  hostname2

我需要一个公式让列c包含来自列a的所有数据，但是会自动将2个空白单元格放在下面。

e.g。专栏c

A1:  hostname1
A2: 
A3:
A4:  hostname2
A5:
A6:
A7:  hostname3

我已经尝试了宏和其他方法，但无法获得excel以查看间距中的模式。

Answer 1

尝试这个小宏：

Sub ReOrganizer()
   Dim i As Long, N As Long, k As Long
   k = 1
   N = Cells(Rows.Count, "A").End(xlUp).Row

   For i = 1 To N
      Cells(k, "C").Value = Cells(i, "A").Value
      k = k + 3
   Next i
End Sub

Answer 2

根据我的评论vba，就像@ Gary的学生提供的那个最好，但是因为你要求一个公式：

=IF(MOD(ROW()-1,3)=0,OFFSET($A$1,QUOTIENT(ROW()-1,3),0),"")

这样做，但你会在“空白”行中有公式，所以它们真的不会是空白。