vb高手请进（用vb实现电子表格多单元格复制问题）
根据vb的msdn的帮助，我现在知道用Hierarchical FlexGrid 和TextBox 控件实现了电子表格的单元格编辑功能。
但是我现在想对这电子表格像excel一样，能进行多单元格对多单元格之间复制和粘贴功能，因为数据量很大，一个一个复制粘贴的话会费很多时间，请vb高高手帮忙实现。
如果有具体详细的代码的话，将非常感激，并加分感谢！
能讲得详细一点吗？TextMatrix和TextArray函数我都会用的。
比如将excel文件用鼠标拖放的方式将矩形单元格组中的的数据复制粘贴到我做的电子表格，应该怎么处理呢？
用什么方式读取你选中的excel中的多个单元格的数据？
这样复制或者剪切一个区域，其实就是数据一个个复制的过程。
将选择区域内的数据一个个复制到你目标区域就好了,
用TextMatrix函数或者TextArray都可以，应该说TextMatrix来得方便些
vb高手请进(用vb实现电子表格多单元格复制问题)
具体的代码就不贴了，贴出来也不适用你。这样复制或者剪切一个区域，其实就是数据一个个复制的过程。将选择区域内的数据一个个复制到你目标区域就好了,用TextMatrix函数或者TextArray都可以，应该说TextMatrix来得方便些
关于excel表格的一些问题,高手请进
用vba实现。代码如下：Sub test()Dim i As Integer Dim j As Integer Dim str As String Dim c1 As Integer Dim c2 As Integer Dim p As Integer str = "优"For i = 2 To EndRow(2)c1 = 0 c2 = 0 For j = 2 To 13 c1 = c1 + 1 If ActiveSheet.Cells(i, j) = str Then...
EXCEL高手请进。当某个单元格为空时在另外表格复制该行,当不为空时拆 ...
这个要用VBA来做。如果在原表中操作涉及到插入行 如果是复制数据到新表。需要循环复制粘贴。交给程序完成吧。sub a()dim i%,j%,k%,arrk=2with sheets(2) ' 假设结果是复制到第2个表中rows(1).copy .[a1] '复制第1行到表2for i=2 to [k65536].end(3).row '从第2行到最后个有...
EXCEL高手请进,求VBA代码,统计关于单元格间隔的问题~
这时你可以按Alt + F8，选程序，在【选项】里设置一个热键，以后每次数据输入完后，按热键运行程序，就可得到你要的结果！！！还有一点大家觉得很奇怪，这样的问题，怎么没有给分？？？！！！
高手请进!EXCEL用VB自动显示和隐藏行或列
Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) If Target = 2 And Target.Row = 2 And Target.Column = 1 Then Columns("C:D").Hidden = False Columns("E:K").Hidden = True End If If Target = 2 And Target.Row = 3 And Target.Column = 1 ...
EXCEL问题,高手请进!
①鼠标右键工作表标签>"查看代码",复制如下代码:Private Sub Worksheet_SelectionChange(ByVal Target As Range)ThisWorkbook.Names.Add Name:="abcd", RefersTo:=Cells(Target.Row, 1).Resize(1, 10)End Sub 注:代码中thisworkbook...resize(1,10)为同一行,resize(1,10)中10为列数,可改成任意[...
请VB高手进来看看,急死拉!!
If myval = vbYes Then mystr = InputBox("请输入文件名称", "输入窗口")If Len(mystr) = 0 Then MsgBox "系统不允许文件名称为空！", , "提示窗口"Exit Sub End If On Error GoTo ErrSave newsheet.SaveAs App.Path & "\\Excel文件\\" & mystr & ".xls"MsgBox "Excel文件保存成功...
EXCEL高手请进。通过宏或者公式实现,当一行数据中的某个单元格等于某...
Sub 数据拆分()Dim ary, i As Long, j As Integer, str As String, str1 As StringFor i = 2 To [b65536].End(3).Row str = VBA.Replace(Cells(i, "B"), ";", ";") ary = Split(str, ";") sj = Sheets(2).[c65536].End(3).Row + 1 Range("c" & i...
请教各位高手: 要用vba实现将表格一中合并单元格拆分,去掉多余行和列后...
没必要用删除空行、取消合并之类的对原表进行破坏性处理。可以采取提取、复制数据的方法：1、判断原表L列当前格是否是1个英文大写字母；2、若是，则复制当前行的B列、D列、L列、M列数据到一个新表；3、对新表数据进行排序、分类汇总即可。
高手请进 VBA拆分金额到相应单元格中,不是函数,是用VBA的,附图?
Public Function GetAmount(ByVal UnitPrice As Single, _ByVal Quantity As Long, _ByRef AmountLen As Long, _Optional ByVal Precision As Integer = 2, _Optional ByVal CurrencyUnit As Long = -27) As String()Dim strAmount As String Dim strAmountArray() As String Dim strCurrency...
