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 - 拆分一個列表

回答

相關問題