Office中国论坛/Access中国论坛

标题: 在EXECL文件中，我想用表一中的数据在表二中显示出来 [打印本页]

作者: HENRYNG 时间: 2007-1-21 23:13
标题: 在EXECL文件中，我想用表一中的数据在表二中显示出来
请哪位高手指点一下：

在EXECL文件中，我想用表一中的数据在表二中显示出来，即：

表一：A1单元格内容为：“NIKI” ，对应的B1单元格为数值：“10”；

A2单元格内容为：“MIKO” ，对应的B2单元格为数值：“5”；如此类推......

在表二显示：A1单元格至A10单元格的10个单元格内容均为：“NIKI”；

A11 单元格至A15单元格的5个单元格内容均为：“MIKO”；如此类推......

请问在表二中该如何设置？

作者: fjzjyan 时间: 2007-1-23 06:00
按Alt+F11进入VBE界面，插入一个模块并在其中编写如下代码后加载到一个窗体控件的命令按钮

Sub abc()
将表1和表2的代码名称分别设为ws1和ws2

Dim rg As Range
Dim rg1 As Range
Dim n As Integer
Set rg = ws1.[a1]
Set rg1 = ws2.[a1]
Do Until IsEmpty(rg)
n = rg.Offset(0, 1).Value
ws2.Range(rg1, rg1.Offset((n - 1), 0)) = rg
Set rg = rg.Offset(1, 0)
Set rg1 = rg1.Offset(n, 0)
Loop
End Sub
[attach]22772[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)