excel单元格中的每一个字占一行

发布网友发布时间：2022-04-29 20:45

我来回答

共4个回答

热心网友时间：2022-06-22 12:49

用宏是个好办法，我给你提供一个不用宏的办法：

如图所示设置几个辅助列，

C2的公式是 =VLOOKUP(ROW(),E$1:G$19,3,TRUE)

D2的公式是 =MID(INDIRECT("B"&H2),ROW()-I2,1)

E2的公式是 =E1+LEN(B1)

F列是1，2，3依次类推

G列式拷贝A列

H2的公式是： =VLOOKUP(ROW(),E$1:F$19,2,TRUE)

I2的公式是： =IF(H1<>H2,ROW()-1,I1)

（第一行的基本上是初始值不用公式，其他行的靠拖拉得到）

热心网友时间：2022-06-22 12:49

本来可以用=MID(B$1,ROW(),1)，但文字多少没有规律，设置公式难于一次向下填充。

热心网友时间：2022-06-22 12:50

用VBA设计一个命令按钮，输入以下代码：
Private Sub CommandButton1_Click()
Range("C:D").ClearContents
k = 1
For Each rag In Range("A:A")
If rag.Value = "" Then Exit For
For j = 1 To Len(Trim(rag.Offset(, 1)))
Range("C" & k) = rag.Value
Range("D" & k) = Mid(Trim(rag.Offset(, 1).Value), j, 1)
k = k + 1
Next j
Next
End Sub

热心网友时间：2022-06-22 12:50

容易啊，公式：=LEFT(B1,1),复制就OK了。