exceL中关于vBA的题，特请教高人
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
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动画查看执行过程。
将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
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
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
代码确定可用，遇到困难欢迎追问
excel 编程问题，请教vba高手~
你能弄个不像SHI的数据源上来么？
肉眼看又看不清，分列又分不出来
最后加上一句：
Sheets.Add Sheets(1)
hx95华夏联盟
excel中如何使用vba代码
答：比如通过使用 Visual Basic 对应用程序的宏创建一个数组公式时您也可能会收到运行时错误1004提示提示信息。造成excel vba输入公式出现运行时错误1004的原因：当您试图将传递一个包含超过 255 个字符的公式时，会发生此问题，并为应用程序中 Visual Basic 中使用 FormulaArray 属性。
excel的VBA关于如何后台打开工作簿并读取里面的数据问题(高手进)_百度...
答：'要在VB中操作Excel，需要引用Excel对象模型 '方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library '其中，XX.X取决于你安装的Office的版本号 Private Sub Command6_Click()Dim excel_App As Excel.Application Dim excel_Book As Excel.Workbook Dim excel_...
Excel vba 触发事件问题?
答：鼠标右键点击界面下方的工作表名，选“查看代码”，把下方代码复制到打开的代码而即可。Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("A1:C10")) Is Nothing Then MsgBox "指定区域已更改！"End If End Sub ...
vba excel中的超级基础的问题,有关宏中sheet的含义
答：sheet1那是你的表的名称你可以把sheet(1)是不一样的。sheet(1)指的第一个表。但是默认的sheet(1)的名字是sheet1 你试一下把sheet1改成sheetm 把sheet2改成sheet1你就知道sheet(1)和sheeet1的区别了！！
Excel VBA 编程规划求解
答：还有 在VBA界面要把工具 引用 SOLVER勾上 最后你录制的代码中可能有错误的 VBA录制规划求解的时候 有的代码是错的 上面的ByChange 你自己改过来了其他要还有报错 你再改下看看 我搞了半天没搞请你代码 你把问题描述一下 G21-YANG@163.COM 我给你录代码吧 我测试了一下 加上SolverReset是可以...
烦请高手帮忙解决Excel中VBA的SolverReset的代码问题,谢谢啦~
答：使用函数之前，必须建立对规划求解加载宏的引用。让VBA模块处于活动状态，单击“工具”菜单中的“引用”，然后选中“可使用的引用”列表框中的“Solver.xla”复选框。如果“Solver.xla”未出现在“可使用的引用”列表框中，单击“浏览”并打开“\Office\Library”子文件夹中的“Solver.xla”。引用后，这...
excel vba中label问题
答：Private Sub UserForm_Activate() Me.Label1.Caption = Application.CountA(Range("A:A"))End Sub
请解释excel VBA 代码
答：Value 可选 Variant 如果 Type 为 xlCellTypeConstants 或 xlCellTypeFormulas，则该参数可用于确定结果中应包含哪几类单元格。将这些值相加可使此方法返回多种类型的单元格。默认情况下，将选择所有常量或公式，无论类型如何。返回值 Range 说明 XlCellType 常量 值 xlCellTypeAllFormatConditions：任意格式...
Excel VBA可以帮忙计算这个题目吗
答：2009-07-30 excel vba 简单的3题目 请大家帮忙 2013-12-06 在EXCEl中使用VBA计算方程的解,怎么求?问题如下: 4 2015-02-03 关于Excel VBA 数值运算mod和\的问题。 1 2015-09-22 EXCELVBA实现分类加总比较计数问题计算成功笔数 2012-05-23 excel,vba,自动计算 1 2010-10-08 excel vba计算数学...
关于在excel录制宏后用VBA画曲线的问题
答：Private Sub CommandButton9_Click()ActiveChart.SetSourceData Source:=Range("Sheet2!$I$2:$J$33")ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetElement (msoElementLegendNone)ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)ActiveChart.SetElement (msoElementPrimary...
