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

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

2^#

發表於 2013-11-23 16:22 | 顯示全部帖子

本帖最後由 a31075ha 於 2013-11-23 16:25 編輯

範例圖

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

3^#

發表於 2013-11-23 16:27 | 顯示全部帖子

回復 2# a31075ha

應該是說框選後只計算要下移的列數而會下移的只有第7跟第15欄有點語無倫次 = ="

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

4^#

發表於 2013-11-24 22:21 | 顯示全部帖子

回復 4# luhpro

不知道是否有辦法像圖中黑色部份一樣下移後不是變成2個5而是將原本的清除掉

而上或下如有資料而不覆蓋<<---以下範例

黃色部份是已完成製作的部分綠色部分是正在製作
如果往上移動是否有辦法移動到綠色部分有資料後就不再移動才不會造成把完成的資料覆蓋掉或者變動到.

感謝大大你因改成自帶資料跟公式的表格後才發現常需要更改順序而插入會整個亂掉...= ="

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

5^#

發表於 2013-11-26 01:10 | 顯示全部帖子

回復 6# luhpro

大大感謝你這樣就很夠用了因為原本想說會是選取範圍整個往下移動所以怕會有資料沒被選到而被覆蓋掉
不過既然整個往下那就不會有這個問題了....往上只要不去動到已經完成的資料所以刪掉空格也解決了這個問題
總之感謝大大解決我的困饒表單用了太多公式函式了 ... = ="

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

6^#

發表於 2013-11-26 01:37 | 顯示全部帖子

回復 6# luhpro

另外, 我倒覺得你要的可能只是:
插入一些資料到目前的資料序列中,
若真是這個需求, 那程式又會與上面不一樣了.
----------------------------------------------
大大我的確是要插入一些資料到目前的資料序列中
只是因為表單里就這二欄式必須自己KEY上去其他都是公式設定好換算
我試過插入列後下拉公式也會跑掉很多也會換算上一列資料跟時間換算..
所以才想有甚麼辦法可以上下移動資料

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

7^#

發表於 2013-11-27 02:15 | 顯示全部帖子

回復 9# luhpro

感謝你我再試看看.....菜鳥摸索中感恩..............

帖子: 39
主題: 8
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2013-11-16
最後登錄: 2016-1-30

8^#

發表於 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格並增加多欄

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