vba窗体工具箱控件介绍

网址：http://www.office68.com/excel/23957.html

解释Cells(Rows.Count, 5).End(3).Row

cells(Rows.count,2)表示B列的最大单元格数，在2003自动即为[B65536]，end(3),end属性，3表示XLUP，整个意思为B列所用的最大单元格，如B列用了8行，即cells(Rows.count,2).end(3).Row =8.

VBA代码编写中IF、Else判断语句的使用

网址：https://jingyan.baidu.com/article/fec4bce244ee02f2608d8b11.html

vba写入，检查构思思路：

单元格相同，跳过，继续，不同（包括没有数据）标注颜色，继续。

vba一个工具，表格拆分、合并、批量处理

网址：http://club.excelhome.net/thread-1309210-1-1.html

灵活拆分工具

网址：http://club.excelhome.net/thread-1317595-1-1.html

vba按列循环

For j = 1 To 10     '数据列

For k = 1 To 10     '数据行

jjj和iii也一样

网址：

http://blog.sina.cn/dpool/blog/s/blog_bf035a210102y6yx.html?md=gd

成功运行，存在问题：

1.请假如何解决（目前排除）

2.列，变量（已解决）

3.日期

4.日期和列匹配

Sub 匹配_备份()
Application.ScreenUpdating = False
Dim i, ii, iii, k, j
For k = 3 To 22
If Cells(k, 2) = "" Then
   
     Else

    
   For i = 2 To 29
     m = Cells(i, 22)      '这里Sheet是关键，如果在别的页执行，必须有，否则为当页
     If InStr(Cells(k, 2), m) > 0 Then    '如果提取的数据包含m
     
        For ii = 2 To 8
            n = Cells(ii, 23)
            If InStr(Cells(k, 2), n) > 0 Then
     
                 For iii = 2 To 55
                    If m = Sheet2.Cells(iii, 2) And n = Sheet2.Cells(iii, 4) Then
                        Sheet2.Cells(iii, 9) = Sheet1.Cells(k, 1)  '写入部分
                           
                    End If
                Next
            End If
        Next
     End If
    
     Next
     End If
  Next
   Sheets("Sheet2").Select
         'Cells(iii, 9).Select
Application.ScreenUpdating = True
End Sub

vba关闭屏幕刷新闪烁

sub abc()

Application.ScreenUpdating = False
……
Application.ScreenUpdating = True

end sub