UC知道EXCEL 宏 单元格 取值 自动换行 金蝶K3
来源：百度知道 编辑：UC知道 时间：2024/06/09 07:49:56
我需要一个EXCEL宏，要实现以下功能：
1.复制某个单元格里面的内容到系统剪贴板（如复制A1里的内容“FZ007”，而不是直接复制单元格）；
2.跳到同一列的下一行；
3.可以循环执行。
我是要在EXCEL表中复制数据，在金蝶K3中查询对应的数据。对于功能第1点，虽然复制单元格与复制单元格里面的内容，最终粘贴出来的结果是一样的，但是在金蝶K3系统里，采用复制单元格里面的内容进行查询，可以得到查询结果，而用复制单元格粘贴过去的数据，却无法得到查询结果。
我只有40分，全加上了。这个应用可以大大提高我的工作效率，感谢热心人士帮助。
循环执行,就是我在A1执行宏后,自动转到A2,这时系统剪贴板上有A1的内容;然后在A2上执行,跳到A3......1楼的我试过了，没有把值复制出来.
我现在碰到的最大的问题是,直接"复制"单元格,然后在K3里面"粘贴",虽然得到的效果看起来是一样的，却总查询不出对应的记录.但是,在EXCEL里面双击单元格,然后复制单元格里面的值,却可以查询出对应的记录.
------------------------------------------------------
提示出错了：编译错误，用户定义类型未定义．在Dim mydata As DataObject 这一句．
------------------------------------------------------
1.复制某个单元格里面的内容到系统剪贴板（如复制A1里的内容“FZ007”，而不是直接复制单元格）；
2.跳到同一列的下一行；
3.可以循环执行。
我是要在EXCEL表中复制数据，在金蝶K3中查询对应的数据。对于功能第1点，虽然复制单元格与复制单元格里面的内容，最终粘贴出来的结果是一样的，但是在金蝶K3系统里，采用复制单元格里面的内容进行查询，可以得到查询结果，而用复制单元格粘贴过去的数据，却无法得到查询结果。
我只有40分，全加上了。这个应用可以大大提高我的工作效率，感谢热心人士帮助。
循环执行,就是我在A1执行宏后,自动转到A2,这时系统剪贴板上有A1的内容;然后在A2上执行,跳到A3......1楼的我试过了，没有把值复制出来.
我现在碰到的最大的问题是,直接"复制"单元格,然后在K3里面"粘贴",虽然得到的效果看起来是一样的，却总查询不出对应的记录.但是,在EXCEL里面双击单元格,然后复制单元格里面的值,却可以查询出对应的记录.
------------------------------------------------------
提示出错了：编译错误，用户定义类型未定义．在Dim mydata As DataObject 这一句．
------------------------------------------------------
可以，问题是你说的循环执行我不能理解，还有就是，你复制内容后肯定有后续动作的，到K3里查询的话就只能靠你手动了
我假设是A列，你所在是A1
Sub Macro1()
Dim mydata As DataObject
Dim str As String
Set mydata = New DataObject
str = ActiveCell.Value
mydata.SetText str
mydata.PutInClipboard
ActiveCell.Offset(1, 0).Activate
End Sub
---------------
我只是举例，因为不清楚你接下来要怎样操作，代码已经更新了，你随便录个宏，设好快捷键，然后将我的代码覆盖就好了