- 博客(6)
- 收藏
- 关注
RSS订阅转载 筛选后的过滤内容复制到另外一个表格
Private Sub CommandButton1_Click()Sheets("Tem").Activate 'tem为原始表格ActiveSheet.AutoFilterMode = FalseSheets("Tem").Rows("1:1").SelectSelection.AutoFilter '将原始表格设为过滤状态Selection.AutoFilter Field:=10, Cri
2018-01-25 16:07:50
3445
2
转载 下标越界的解决方法
如果使用数组时，数组的下标超出数组的可取值范围就会出现这个错误，这个数组可以是自定义的也可以是系统自带的。1.自定义数组：dim arr1(1 to 5)arr1(10)=555因为arr1数组为1到5，这里却是10，所以就会报下标越界错误。2.系统自带的数组：一个excel工作表表有3张SheetSub 下标越界() MsgBox Sheets(4).N
2018-01-25 15:59:46
36365
转载 筛选出来的单元格，粘贴成值
Sub ConvAfterFilter()On Error Resume NextApplication.ScreenUpdating = FalseDim Rng As RangeFor Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)If Rng.HasFormula Then
2018-01-25 15:37:05
956
转载 VBA END 用法
For irow = 1 To [A65536].End(3).Row If Abs(Cells(irow, 1).End(2) - Cells(irow, 256).End(1)) / Cells(irow, 1).End(2) > 0.1 Then Cells(irow, 1).End(2)(1, 2) = Cells(irow, 256).End(1) Nex
2018-01-25 11:01:02
14724
2
原创 结合公式管理器的插入列VBA
Sub insert()Dim i As IntegerDim j As Integerr = Cells(1, Columns.Count).End(xlToLeft).ColumnColumns(r).insert shift:=xlToLeftEnd Sub在空白那一列的上方标志数字，以表示数到的那一列，然后可以向左插入一列。在插入列上，写上前一列
2018-01-25 10:54:37
489
转载 合并工作表
Sub Combine()Sheets(1).Name = "Combine"Application.ScreenUpdating = FalseFor i = 1 To Sheets.Count If Sheets(i).Name "Combine" Then k = Range("A65536").End(xlUp).Row + 1 Sheets(i
2018-01-24 16:42:53
358
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人