是否有辦法框選範圍以值的方式下移不改變儲存格公式?? - 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格並增加多欄

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

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。