vba获取最后一行一列，复制粘贴特定一列的值

Sub CheckNum()
iCount = 0iRow = ActiveSheet.Range("s65535").End(xlUp).Row                         '取最后一行
iCol = ActiveSheet.Range("dz2").End(xlToLeft).Column              '取最后一列
MsgBox "iRow为： " & iRow
MsgBox "iCol为： " & iColFor m = 0 To iRowFor j = 0 To iCol                                              '列循环If ActiveSheet.Cells(m, j) = "●" ThenActiveSheet.Cells(m, j) = Range("S" & m)iCount = iCount + 1End IfNextNextMsgBox "处理数值为： " & iCount
End Sub

转载于:https://blog.51cto.com/5456032/1656400

vba获取最后一行一列，复制粘贴特定一列的值相关推荐

PyCharm - Column Selection Mode (列选择模式 / 列复制粘贴)
PyCharm - Column Selection Mode (列选择模式 / 列复制粘贴) 1 *.py 文件右键 -> Column Selection Mode -> 鼠标垂直 ( ...
R语言dplyr包数据列重排（reorder）实战：把特定数据列移动到第一列、把特定数据列移动到最后一列、数据列多列重排、按照字母顺序重排数据列、把数据列反序
R语言dplyr包数据列重排(reorder)实战:把特定数据列移动到第一列.把特定数据列移动到最后一列.数据列多列重排.按照字母顺序重排数据列.把数据列反序目录
获取国家统计局行政区划数据（复制粘贴）
1.安装python(自行百度) 2.安装依赖 3.创建文件复制以下内容备注: if province_name==r'甘肃省' : 根据需要判断是否需要读取单独省份数据. # This is ...
excel高级筛选怎么用_如何用excel在筛选状态下怎么复制粘贴？
试玉要烧三日满,辨材须待七年期.大家好,我是IT探险家. 今天的问题就是大家用excel会经常遇到的问题:C列数据是筛选状态,现在想把D列数据,复制粘贴到E列,怎么做呢?wps有一个功能是粘贴到可见单 ...
vue实现excel表格复制粘贴
vue表格复制粘贴效果图: 说明:想要实现从excel表格复制内容之后,在vue页面上粘贴.有两个情况: (1)全部列都可以粘贴:无论从哪一列点击开始粘贴,都是从点击的列开始粘贴.效果如上图1 (2 ...
qt-wayland平台下复制粘贴原理
一.复制粘贴的简单原理复制粘贴大概可以分为以下两种场景: 在同一个进程中复制并粘贴在进程A(源窗口)中复制,在进程B(目的窗口)中粘贴场景1好理解,数据都在一个进程中,直接在内存中设置和读取就可 ...
origin怎么打开txt文本_告别多次复制粘贴，Origin实用教程教你如何一次导入上百个txt文本...
今天介绍下如何一次导入71个txt文本,每个文本2列数据,一共142列.希望看完这个不要再一次次复制粘贴了,多次复制又累又容易出错. 操作步骤很简单,在Data按钮下面选择import from fi ...
VBA学习之复制粘贴表
2019/9/30 1 建立测试文件夹每张表的内容如下: 在文件夹里建立5个相同内容的副本: 2 百度网上代码进行试用代码1(原代码链接): Sub MoveSheets()'在下面Array中列 ...
VBA 单元格基本操作 - 复制粘贴区域选择
本期主要讲讲单元格复制粘贴等操作. 一.复制粘贴固定区域的单元格因为以下内容都是复制单个或者固定区域的单元格内容,就不多说了,备注上面都有说明. Option ExplicitSub CopyRan ...

vba获取最后一行一列，复制粘贴特定一列的值

vba获取最后一行一列，复制粘贴特定一列的值相关推荐

最新文章

热门文章