UC知道VBA 判断某列中大于0单元格时，对此的单元格进行复制
来源：百度知道 编辑：UC知道 时间：2024/06/25 01:33:04
A列为姓名，B列为学号，C列为分数。将有分数的同学信息(即ABC列的值)复制至另一单元格
例：
姓名 学号 分数
ABC 15 60
AAA 10 75
ADF 3
AET 9 80
AEF 8
RQW 23 60
......
变为-->
ABC 15 60
AAA 10 75
AET 9 80
RQW 23 60
我是要判断C列单元格为非空时，对此行进行复制。
我尝试用以下语句，但得到的结果是只复制了符合条件的最后一行
Sub 复制()
Dim i As Long
For i = 1 To [a65536].End(xlUp).Row
If Range("c" & i) <> "" Then
Rows(i).Copy
End If
Next
End Sub
例：
姓名 学号 分数
ABC 15 60
AAA 10 75
ADF 3
AET 9 80
AEF 8
RQW 23 60
......
变为-->
ABC 15 60
AAA 10 75
AET 9 80
RQW 23 60
我是要判断C列单元格为非空时，对此行进行复制。
我尝试用以下语句，但得到的结果是只复制了符合条件的最后一行
Sub 复制()
Dim i As Long
For i = 1 To [a65536].End(xlUp).Row
If Range("c" & i) <> "" Then
Rows(i).Copy
End If
Next
End Sub
sub 删除空白()
dim i as long
for i = 1 to [a65536].end(xlup).row
if range("c"&i)="" then
rows(i).Delete
end if
next
end sub
空白的直接删掉了。。
用自动筛选 选择非空白
高级筛选 建立条件区域
姓名 学号 分数
>0
高级筛选里有个将结果复制到你用一下！应该能解决！