gctsai 當前離線
等待驗證會員
oobird 當前離線
街友一族
超級版主
TOP
hugh0620 (VBA向前衝)當前離線
高中生
Sub tt() '====程式一====== '====程式一====== A = Sheet3.Range("C65536").End(xlUp).Row For i = 2 To A If IsError( Sheet3.Range("F" & i)) Then Else Sheet3.Range("C" & i) = Sheet3.Range("F" & i) End If Next '====程式一====== '====程式一====== End Sub
大大,可是我有一些程式是放在sheet1 gctsai 發表於 2011-8-16 15:23