1. 目的
利用excel对大量数据进行筛选复制并黏贴,案例如下
1.1 根据数据筛选,每次黏贴时连接在一起
1.2 根据数据筛选,每次黏贴逐列分开
2. 实现方式
2.1 基本功能
2.1.1 复制
范围复制
Range(Cells(i, 1), Cells(i + 9, 2)).Copy
2.1.2 剪切
范围选择剪切
Range(Cells(i, 1), Cells(i + 13, 2)).Cut
2.1.3 黏贴
基于某单元格进行黏贴
Cells((j - 1) * 14 + 3, 5).Select
ActiveSheet.Paste
2.1.4 循环
主体循环
For i = 1 To 1534
' 循环主体内容
Next
跳出循环
For i = 1 To 1534
If Not Cells(i, 2) = "NaN" Then
Exit For
End If ' 跳出循环
Next
跳过本次循环,进入一次循环
——因为VBA中没有continue,故只能通过 if 语句实现
For i