UC知道excel单元格中的每一个字占一行
来源：百度知道 编辑：UC知道 时间：2024/06/14 08:20:11
a1 阿啊呵腌吖锕
a2 啊呵嗄
a3 啊呵
a4 啊呵
现在需要将这个表格中b列每一个汉字占一行变为一下这种格式
a1 阿
a1 啊
a1 呵
a1 腌
a1 吖
a1 锕
还请各位大哥帮忙……
用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
容易啊，公式：=LEFT(B1,1),复制就OK了。
本来可以用=MID(B$1,ROW(),1)，但文字多少没有规律，设置公式难于一次向下填充。
用宏是个好办法，我给你提供一个不用宏的办法：
如图所示设置几个辅助列，
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)
（第一行的基本上是初始值不用公式，其他行的靠拖拉得到）
EXCEL高手来！！！excel中怎样把同一行几个单元格中的数乘起来？ excel在一列中的实现每一个单元格同时加100的公式如何写？ 如何将excel中的每一个单元格都粘贴上同一个内容 excel问题.移动姓名到每一个单元格. 在Excel中如何将某一序列单元格中的数据颠倒，也就是第一行变成最后一行，最后一行变成第一行？ 在Excel中一个单元格中的内容很长时,如何让他另起一行. excel插入空白单元格只能插一行？ EXCEL 中的单元格属性 excel 中的单元格 在Excel中,怎样把一行字,分成两行,在一个单元格中