複製不帶格式~只要數值

　暱稱: VBA向前衝

1^# 跳轉到 »

發表於 2011-4-12 17:51 | 顯示全部帖子

GBKEE 大大在我問的相同問題的回覆
Sub Ex()
With Sheet1.Range("K4")
Sheet1.Range("E4").End(xlDown).Offset(1, 0) = .Value
End With
End Sub

學習才能提升自己

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。