是否有辦法框選範圍以值的方式下移不改變儲存格公式?? - Excel程式區

[發問] 是否有辦法框選範圍以值的方式下移不改變儲存格公式??

11^# 跳轉到 »

發表於 2014-3-16 06:03 | 只看該作者

回復 4# luhpro

Sub 往下移動()
Dim lRow&, lRows&
Dim rTar As Range
Set rTar = Selection
If rTar.Count = 1 Then
lRows = 1
Else
lRows = UBound(rTar.Value2, 1)
End If
icol = 7
Do While icol < 16
Range(Cells(rTar.Row, icol), Cells(Rows.Count, icol).End(xlUp)).Copy _
Cells(rTar.Row + lRows, icol)
'Range(Cells(rTar.Row, icol), Cells(rTar.Row + lRows - 1, icol)) = "" ' 不確定你是否要清掉這些資料
icol = icol + 8
Loop
End Sub

複製代碼

大大這一段往下的代碼是否有辦法一次下降2格並增加多欄

像圖中框選的欄位同時下降

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。