编写宏实现自动复制下一条记录

wucaoding · 发表于 2007-11-17 09:54

在电子表格中编写宏实现自动复制下一条记录该怎么编？详见附件

MCqL6W3Y.rar (4.65 KB, 下载次数: 11)

补充一下，复制之后要在其它窗口粘贴。再来再复制。

[此贴子已经被作者于2007-11-17 9:57:07编辑过]

wucaoding · 发表于 2007-11-17 11:35

太难了么？

tony001 · 发表于 2007-11-18 19:36

不是很明白你的要求。但希望能帮助你。

在Sheet1里加入一个command。

添入如下代码用于提取数据：

Public Count As Integer

Private Sub CommandButton1_Click()

MsgBox Application.Sheets("Sheet1").Cells(Int(Count / 2 + 1), Count Mod 2 + 1).Value
Count = Count + 1

End Sub

你要复制，打开别的excel，将值拷过去就行

[此贴子已经被作者于2007-11-18 19:38:41编辑过]

wucaoding · 发表于 2007-11-19 09:45

不是拷在excel中，而是复制入剪贴板中。到其它位置粘贴后再来再复制。

谢谢！！

		自动登录	找回密码
密码			免费注册