Excel填写，但以我的条件为准

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

e、 g.A栏

A1:  hostname1
A2:  hostname2

我需要一个公式，使c列有a列的所有数据，但自动将两个空白单元格放在两个单元格之间，如下所示

e、 g.c栏

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

---

我尝试过宏和其他方法，但无法让excel看到间距中的图案。

尝试一下这个小宏：

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

---

试试这个小宏：

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

---

根据我的评论vba，像@Gary's Student提供的一样是最好的，但由于您要求公式：

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

---

这样就可以了，但您将在“空白”行中有公式，因此它们确实不会是空白的。

根据我的评论vba，像@Gary的学生提供的一样是最好的，但是由于您要求公式：

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

---

这样就可以了，但在“空白”行中有公式，因此它们确实不是空白的。

提供的任何公式都会显示两个空行，但实际上有两个单元格，其中的公式返回“”。这是你想要的吗？添加您在vba中尝试过的内容，并让别人建议如何解决这个问题，可能会更容易。例如

=IF（MOD（ROW（）-1,3）=0，OFFSET（$A$1，商（ROW（）-1,3），0），”）

将获得所需的结果。将其放在C1中并复制下来，但实际上在“空白”单元格中有公式。提供的任何公式都会显示两个空行，但实际上有两个单元格中的公式返回“”。这是你想要的吗？添加您在vba中尝试过的内容，并让别人建议如何解决这个问题，可能会更容易。例如

=IF（MOD（ROW（）-1,3）=0，OFFSET（$A$1，商（ROW（）-1,3），0），”）

将获得所需的结果。将它放在C1中并向下复制，但实际上在“空白”单元格中会有公式。我录制了一个宏，在第2列的名称下方创建了两个空格，并将宏一直运行到第2列。这在没有单元引用的情况下创建了间隙。我将探索这些替代方案。非常感谢。我录制了一个宏，在第二列中的名称下方创建了两个空格，并将宏一直运行到第二列。这在没有单元引用的情况下创建了间隙。我将探索这些替代方案。非常感谢。我录制了一个宏，在第二列中的名称下方创建了两个空格，并将宏一直运行到第二列。这在没有单元引用的情况下创建了间隙。我将探索这些替代方案。非常感谢。我录制了一个宏，在第二列中的名称下方创建了两个空格，并将宏一直运行到第二列。这在没有单元引用的情况下创建了间隙。我将探索这些替代方案。非常感谢。