excel 多次筛选后的range数据处理

当excel 经多次筛选后，range数据区域可能含不连续的多个range，要想处理所有数据（包含隐藏的数据），可以按每行每列分别处理。

Dim ws As Worksheet
Dim rg As Range
Set ws = ThisWorkbook.ActiveSheet
Dim nEndRow As Integer '求sheet的行数和列数
Dim nEndColumn As Integer
With ws.UsedRange
nEndRow = .Rows.Count + .Row - 1
nEndColumn = .Columns.Count + .Column - 1
End With
If nEndColumn = 256 Then
nEndColumn = 255
End If
For i = 1 To nEndRow '多次筛选后的range有多不连续区域=>按每行每列处理可处理所有数据 2013.2.24 by lijilin
Set rg = ws.Range(ws.Cells(i, nEndColumn + 1), ws.Cells(i, nEndColumn + 1))
'rg.Columns.EntireColumn.Insert
rg = "=row()"
Next

如果不用For循环

Set rg = ws.Range(ws.Cells(1, nEndColumn + 1), ws.Cells(nEndRow, nEndColumn + 1))

rg = "=row()"

则从1行到nEndRow行中的隐藏行可能不会被处理。

当有列隐藏时也会出现这种情况，所以最好的办法就是对数据按每行每列分别处理（拷贝、更改。。。）！

excel 多次筛选后的range数据处理相关推荐

excel只对筛选后的结果单独用公式
在excel中对筛选后的结果用公式,然后把表格内所有的数据都用了公式.如何只对筛选后的结果单独用公式呢? excel给了一个函数,subtotal函数都是对所筛选出的单元格而不含被筛选掉的单元格 su ...
在Excel中数据筛选后如何拷贝粘贴
数据筛选后按F5 或者在查找和选择里找到定位条件,选择可见单元格,再复制
Excel VBA 如何筛选后，求和
文章目录筛选删选后求和筛选 Private Sub TextBox2_Change() If TextBox2.Text = "" ThenAutoFilterMode = ...
【原创】EXCEL筛选后数据求平均值
如果是筛选状态的话,不要直接用average,要使用subtotal(1,A1:A12),这样是可见单元格,A1:A12是你的数据区域 EXCEL中对筛选后的,出来的数据求平均值_百度知道
计算机公式筛选,Excel数据汇总计算的套路：5种筛选后的数据处理技巧
1.筛选后填充序号表格中的序号我们一般利用拖动或双击鼠标来填充,但在使用筛选功能后,筛选出的部分数据,序号是不连续的,如何让序号在筛选后也是从1开始递增显示呢? 在A2单元格输入公式:=SUBTOT ...
python实现excel高级筛选怎么用_Python数据处理，工具用错了，还不如Excel的高级筛选功能...
更多 Python 数据处理的干货,敬请关注!!!! 系列文章: 懂Excel就能轻松入门Python数据分析包pandas(一):筛选功能前言经常听别人说 Python 在数据领域有多厉害,结果 ...
Excel筛选后数据行数
数据筛选是常用的功能,简单高效.原始数据如下. 筛选一下Garde=2的数据,Excel的状态条上就显示"在7条记录中找到3个",可见数据是3行. 但是VBA中没有提供直接访问这个 ...
Excel筛选后数据如何汇总计算？
Excel筛选后数据如何汇总计算? 目录 Excel筛选后数据如何汇总计算? 1.例如:要计算混凝土的总量,选中需要筛选的列,点击[开始]选项卡中的[排序和筛选][筛选] 2.点击[全选]去掉全选对钩 ...
python怎么筛选excel数据_Python如何实现excel筛选后生成新表
Python如何实现excel筛选后生成新表 xlrd对exce进行读操作,xlwt对exce进行写操作. 实现把excel中某些单元格的部分字符作为关键字,进行查找.话不多说直接上代码.# -*- ...

excel 多次筛选后的range数据处理

excel 多次筛选后的range数据处理相关推荐

最新文章

热门文章