Question

exceL中关于vBA的题，特请教高人

exceL中关于vBA的题，特请教高人假如有一列数据如下
987
654
321
分拆成以下一列
9
8
7
6
5
4
3
2
l
这个用vBA怎么写，谢谢您了。

Answer 1

Sub 按钮1_Click()

Application.ScreenUpdating = False

a = 1

For j = 1 To Cells(Rows.Count, 1).End(3).Row

For i = 1 To Len(Cells(j, 1))

Cells(a, 2) = Mid(Cells(j, 1), i, 1)

a = a + 1

Next i

Next j

Application.ScreenUpdating = True

End Sub

追问

谢谢您

追答

这个代码是通过的，就是一个单元格多个字符也可以拆分的

Answer 2

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动画查看执行过程。

追问

谢谢您了

追答

利用对话框可以很方便的选择区域，其实就是实现了动态的选择。

Answer 3

将A列拆分，放入B列为例：
逐行手敲，亲测可用。

Sub chaifen()
Dim i, j As Integer
j = 1
Dim a As Integer
a = 1
Set arr = Sheets("Sheet1").Range("a1:a5")

For j = 1 To 5
 For i = 1 To Len(arr(j))
 Sheets("Sheet1").Range("B" & a) = Mid(arr(j), i, 1)
 a = a + 1
 Next i
Next j
  
End Sub

Answer 4

Sub dsf()

For y = 1 To 3

For x = 1 To 3

h = h + 1

Range("b" & h) = Mid(Range("a" & y), x, 1)

Next x

Next y

End Sub

追问

谢谢您.

Answer 5

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

代码确定可用，遇到困难欢迎追问

追问

谢谢您