exceL中关于vBA的题,特请教高人
exceL中关于vBA的题,特请教高人假如有一列数据如下987654321分拆成以下一列98765432l这个用vBA怎么写,谢谢您了。...
exceL中关于vBA的题,特请教高人假如有一列数据如下
987
654
321
分拆成以下一列
9
8
7
6
5
4
3
2
l
这个用vBA怎么写,谢谢您了。 展开
987
654
321
分拆成以下一列
9
8
7
6
5
4
3
2
l
这个用vBA怎么写,谢谢您了。 展开
6个回答
厦门鲎试剂生物科技股份有限公司
2023-08-01 广告
2023-08-01 广告
BG试验又称为G试验,是一种基于真菌细胞壁成分的血清学试验。BG试验检测的是真菌细胞壁中的葡聚糖成分。操作步骤如下:1. 左键单击【View】2. 左键单击【Residual Diagnostics】3. 左键单击【Series Corre...
点击进入详情页
本回答由厦门鲎试剂生物科技股份有限公司提供
展开全部
Sub chaifen()
Dim rng As Range, rg As Range, rngs As Range, i As Integer, k As Integer
Set rng = Application.InputBox("请选择要拆分的区域", , , , , , , 8)
Set rngs = Application.InputBox("请选择要开始放置的单元格", , , , , , , 8)
For Each rg In rng
For i = 1 To Len(rg.Value)
k = k + 1
rngs(k, 1) = VBA.Mid(rg.Value, i, 1)
Next i
Next rg
End Sub
点击gif动画查看执行过程。
追问
谢谢您了
追答
利用对话框可以很方便的选择区域,其实就是实现了动态的选择。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub tst()
Dim i%, j%
j = 1
Dim cel As Range
For Each cel In Range("a1:a" & Range("a65536").End(xlUp).Row)
For i = 1 To Len(cel)
Cells(j, 2) = Mid(cel, i, 1)
j = j + 1
Next
Next
End Sub
代码确定可用,遇到困难欢迎追问
追问
谢谢您
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询