vba 同壹個excel工作表，sheet之間的復制

Set xxx = Sheet1.UsedRange

For t1 = 1 To xxx.Rows.Count

For t2 = 1 To xxx.Columns.Count

If xxx(t1, t2).Font.ColorIndex = 3 Then

r = r + 1

Sheet2.Cells(r, 1).Resize(1, xxx.Columns.Count) = xxx.Rows(t1).Value

Exit For

End If

Next

Next

End Sub

--------------------------------------------------

根據補充, 再寫以下壹段程序:

Sub findempty()

Set xxx = Sheet1.[A3:A10000]

Set yy = Sheet2.[A3]

For Each xx In xxx

If Not IsEmpty(xx) Then

yy.Offset(r, 0) = xx

yy.Offset(r, 1) = xx.Offset(0, 3)

r = r + 1

End If

Next

End Sub

此程序差不多是VBA最基本及最低程度的代碼, 亦容易明白及修改單元格的範圍