Excel - 拆分一个列表

我有一个约300个项目的列表，我需要间隔出来的每8个单元，而不是一个接一个。我相信有一个简单的方法来做到这一点，但是我的大脑让我失望。我有一种感觉，我的术语受到伤害，因此我无法找到答案。Excel - 拆分一个列表

enter image description here

来源

2013-11-01 James Inkster

能否请您发布的屏幕截图，或添加一些额外的细节？

两件事情，我想起了可能的解决方案：

1）使用文本列（如果这是在您使用本打算）或

2）使用像= LEFT公式（ A1，10）并填写（10可以更改为需要分隔的字符串的第一部分）。

提供一些额外的信息，我会再看看！

来源

2013-11-01 20:08:39 rwking

我走了，并添加了一个图片的链接，直到我得到一些更多的信誉点，但我无法提供它的图像格式;（！ –

尝试下面代码

Sub Main() 


    Dim lastRow As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 

    For i = 1 To lastRow 
     If i = 1 Then 
      Cells(i, 5).Value = Cells(i, 1) 
     Else 
      Cells((i - 1) * 9, 5).Value = Cells(i, 1) 
     End If 
    Next 

End Sub

输出

enter image description here

来源

2013-11-01 20:24:39 Santosh

@JamesInkster你可以调整'（i - 1）* 9'根据您的要求。 – Santosh

为什么downvote？ – Santosh

=IF(MOD(ROW()+7;8)=0;INDEX(A:A;INT(ROW()/8)+1);"")

鉴于数据在A1开始，并且式从行1中使用（coulmn并不重要）。

来源

2013-11-01 22:04:38

+1好的回答:) – Santosh

Excel - 拆分一个列表

回答

相关问题