Question

怎么能通过VBA代码有条件的自动复制单元格内容

Answer 1

Sub 复制()

    For Each rng In Range("c1:c" & [c65536].End(3).Row)

        If [a1] = "" Then i = 1 Else i = [a65536].End(3).Row + 1

        If rng <> "" Then

            Range(Cells(rng.Row, 3), Cells(rng.Row, 4)).Copy

            Cells(i, 1).PasteSpecial Paste:=xlValues

        End If

    Next

End Sub

追问

• 不好意思，我复制代码，怎么未果？？？

追答

以上是原始数据图片，以下是运行代码以后的效果图片。

Answer 2

for i=1 to range("c65535").end(xlup).row
if cells(i,"c")>0, then
cells(i,"a")=cells(i,"c")
end if
if cells(i,"d")>0, then
cells(i,"b")=cells(i,"d")
end if

next

具体案例，可参考：http: // 99fg . zzxx . in