[已解决]求助用函数将数字转置问题

hwc2ycy · 发表于 2012-8-30 11:51

小心你下面的合并单元格，

yanyongxia · 发表于 2012-8-30 11:52

p = 1
For i = 1 To 3
cd = Len(Cells(i, 1))
For j = 1 To cd
      kk = Trim(Mid(Cells(i, 1), j, 1))
      If kk <> "" Then
         Range("c" & p) = kk
         p = p + 1
      End If
Next j
Next i

快乐童年 · 发表于 2012-8-30 11:58

感谢管理员。谢谢你，谢谢

快乐童年 · 发表于 2012-8-30 11:58

感谢管理员。谢谢你，谢谢

yanyongxia · 发表于 2012-8-30 12:00

为了不和你的发生冲突，我把结果放到C列中了

		自动登录	找回密码
密码			注册