取某个单元格的值-ag凯发k8国际

在excel操作过程当中，除了给表格输入内容就数单元格复制最常用了，通常快捷方法有ctrl c，ctrl v。

不用说，这种方法对于操作十分方便，那么如何利用代码来实现复制功能呢！

因为在编程过程中，会用到将一个或多个单元格的内容复制另外单元格当中，程序过程中是不能进行键盘干预的。

所以我们将学会使用其代码方法来对单元格进行复制。

很简单，使用range对象的copy方法。

具体方法和参数如下图

copy方法的功能就是将一个区域单元格复制到指定区域，如不指定得到地点，那么就复制到剪贴板当中。

然后再用pastespecial方法来复制，这篇文章就不做pastespecial方法介绍了，主要来介绍一下copy (destination)带参数的方法。

上图为举例介绍，任意单击鼠标选择一个单元格，分别实现向右或向下复制单元格内容。

在某些特定环境下面，这种方法真的十分有效，节省很多操作步骤。

因为将复制简化成了单击两下鼠标的操作。

代码介绍

获取复制单元格函数：getranges()

private function getranges(sr as range) as range dim w as worksheet set w = activesheet dim n as integer, ri as long, ci as long nr = sr.row nc = sr.column ri = w.cells(w.rows.count, nc).end(xlup).row '取最大行号 ci = w.cells(nr, w.columns.count) _ .end(xltoleft).column '取最大列号 if ri < nr or ri = 1 then goto err0 if ci < nc or ci = 1 then goto err0 set getranges = _w.range(w.cells(sr.row, sr.column) _, w.cells(ri, ci)) exit functionerr0: set getranges = nothingend function

其功能是将选定单元格到整个表格最右下角之间的单元格，作为复制的内容。

向下复制函数：copydown()

private sub copydown(ri as long, sr as range) with sr .copy destination:=.offset(ri, 0) _ .resize(sr.rows.count, sr.columns.count) end withend sub

向右复制函数：ag凯发k8国际 copyright()

private sub ag凯发k8国际 copyright(ci as long, sr as range) with sr .copy destination:=.offset(0, ci) _ .resize(sr.rows.count, sr.columns.count) end withend sub

向右复制按钮过程代码

private sub commandbutton1_click() dim sr as range set sr = selection dim svr as range set svr = getranges(sr) if svr is nothing then exit sub call ag凯发k8国际 copyright(svr.columns.count, svr)end sub

向下复制按钮过程代码

private sub commandbutton2_click() dim sr as range set sr = selection dim svr as range set svr = getranges(sr) if svr is nothing then exit sub call copydown(svr.rows.count, svr)end sub

重点

重点就在于选择destination参数，就说这个参数决定了要复制的目的地，如果进行跨表复制，那么要带上完整的表路径。

例如：

dim xr as range set xr = thisworkbook.worksheets("sheet3").range("a1") activesheet.range("a1:f10").copy destination:=xr

就是将当前表中的a1:f10单元格内容复制到表sheet3当中以a1开始的位置。

复制内容包括值和格式以及公式。

copy方法并不难学，甚至都不用十分用功就会明白。

但是会用和应用熟练是两码事情，所以要多做练习之后会提高使用copy方法的灵活性，才能得心应手。

很多事情不都是这个道理吗！

喜欢就关注、收藏

总结

以上是ag凯发k8国际为你收集整理的取某个单元格的值_vba中如何进行单元格复制，copy方法使用介绍，一定要学的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得ag凯发k8国际网站内容还不错，欢迎将ag凯发k8国际推荐给好友。