【求助】如何将单元格分列并向下填充

龟速般学习

步骤
1、A列右侧插入3列，选中A列，分列-分隔符号-其他：，（记得是中文的逗号）-完成，会弹出提示框：是否替换是
2、“A”以下插入3行，“E”以下插入1行，将“B,C,D”复制到刚刚插入的行数中，选择性粘贴-转置，
3、将第一步插入的3列删除，选中整个有数字的区域，定位条件-空值，B3=B2，CTRL+enter，完成

niko88819

有PQ跟365可以一步到位,其它版本要分成二個公式完成任務
給你 VBA 可以一步到位

1. Sub niko()
   
2.     Dim sourceTable As Range
   
3.     Dim destTable As Range
   
4.     Dim sourceRow As Range
   
5.     Dim destRow As Range
   
6.     Dim values() As String
   
7.     Dim value As Variant
   
8.     Dim i As Integer
   
9.     Dim destRowCounter As Integer
   
10.     Set sourceTable = Worksheets("Sheet1").Range("A1:B4") '假设来源工作表,目前为 Sheet1
    
11.     Set destTable = Worksheets("Sheet1").Range("G1:H20") '想把结果置放工作表,目前为 Sheet1
    
12.     destTable.ClearContents
    
13.     destRowCounter = 1
    
14.     For Each sourceRow In sourceTable.Rows
    
15.         values = Split(sourceRow.Cells(1).value, ",")
    
16.         For Each value In values
    
17.             Set destRow = destTable.Cells(destRowCounter, 1)
    
18.             destRow.Cells(1).value = Trim(value)
    
19.             Set destRow = destTable.Cells(destRowCounter, 2)
    
20.             destRow.Cells(1).value = sourceRow.Cells(2).value
    
21.             destRowCounter = destRowCounter + 1
    
22.         Next value
    
23.     Next sourceRow
    
24. End Sub

复制代码