jumky

帖子: 100
主題: 27
精華: 0
積分: 197
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2023-6-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-5 14:02 | 只看該作者

不連續儲存格該如何拖曳?

請問各位大大：
一般excel可以做單一儲存格或連續儲存格的拖曳....
可若有不連續儲存格的資料要同時往上拖曳移一格要如何用呢..??

樓主熱帖

www0857

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 24
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2011-1-5
最後登錄: 2013-1-28

2^#

發表於 2011-1-5 21:28 | 只看該作者

如果是全部單純往上一格的話…我只會以下方法
假如要B3、D4要往上移的話，直接選B2、D3再滑鼠右鍵→刪除→下方儲存格上移→確定
我很菜，剛晃到這網站沒多久

TOP

jumky

中學生 Rank: 2

帖子: 100
主題: 27
精華: 0
積分: 197
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2023-6-1

3^#

發表於 2011-1-5 22:06 | 只看該作者

回復 2# www0857

不好意思.....因為不想用刪除儲存格...才想用拖曳的方式......
那意思是EXCEL只能做連續儲存格的拖曳...只要是不連續的儲存格就無法做拖曳嗎...??

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2011-1-5 23:17 | 只看該作者

本帖最後由 linshin1999 於 2011-1-6 10:03 編輯

Jumky妳好:如果用巨集指令可願意乎?
Sub 搬移儲存格資料
Range("C4").Cut
Range("D7").select
ActiveSheet.Paste
End Sub

如果很多的話,妳可以用兩個陣列來做對吊的工作如下:

Sub 搬移儲存格資料
Dim delete_data, copy_data
delete_data = Array("A5", "B9", "C2", "G3", "D5", "E4", "F7")
copy_data = Array("A9", "B2", "C6", "G5", "D2", "E7", "F2")
Dim i As Integer
For i = 0 To 5
      Range(delete_data(i)).Cut
      Range(copy_data(i)).select
      ActiveSheet.Paste
Next i
End Sub

試試看很好玩的

V98

TOP

sujane0701

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

5^#

發表於 2011-1-6 01:49 | 只看該作者

樓主您好
提供的訊息條件不太充足,可否上傳檔案範例?
如果這些不連續儲存格,有一定的規律(比如內含某一中英數字;或同一日期時間,或其他相關可能的條件),或是這些儲存格的上下一格擁有特定狀況,或是前後儲存格具備某種條件屬性等等可供篩選參考,那應該有許多現成的excel功能可供利用,目前訊息不足以判斷,建議上傳個檔案囉~

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2011-1-6 10:12 | 只看該作者

Sujane0701你好:改好了(如前文)再去執行看看.我没有試屬性不同的儲存格的轉移,你談的部分我的經驗不夠,不好意思,我的檔案單純是測試性質,所以只是簡單的同型態的儲存格的移轉,恐怕没有上傳的意義,謝謝!!

V98

TOP

jumky

中學生 Rank: 2

帖子: 100
主題: 27
精華: 0
積分: 197
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2023-6-1

7^#

發表於 2011-1-6 22:08 | 只看該作者

回復 6# linshin1999

linshin1999大大您好：
因為我們那個一個表格數個人在使用...所以...無法去用巨集...所以才想說是否有不連續儲存的拖曳方式...
各式如下：

Book2.rar (1.67 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-1-6 23:10 | 只看該作者

只有刪除空白儲存格一法
選取A1:B6
按F5/特殊
點選空格
滑鼠右鍵/刪除/下方儲存格向上移動

學海無涯_不恥下問

TOP

sujane0701

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

9^#

發表於 2011-1-7 01:54 | 只看該作者

回復 7# jumky

能同意用輔助列嗎?
如果可以忍受增加一欄輔助列,小弟提供一個方法
=IF(A1="","",ROW(A1)) 往下拷貝可以計算出非空白儲存格的位址,然後以輔助欄做排序參照值即可解決問題

TOP

sujane0701

　暱稱: Ted

中學生 Rank: 2

帖子: 70
主題: 12
精華: 0
積分: 163
點名: 0
作業系統: windows
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 基隆市
註冊時間: 2010-5-3
最後登錄: 2024-6-7

10^#

發表於 2011-1-7 02:09 | 只看該作者

再提供一個不增加輔助欄,純手動的取巧方法
1.依Hsieh 版主大大的方式,操作到圈選所有空白儲存格這個步驟停下
2.不刪掉空白儲存格的前提下,我們可以改用"取代"功能,將空白儲存格全部改成[一定會被排序到最下方]的文字或數值,比如ZZZZZ,然後圈選整張工作表,以"ZZZZZ"所在欄位做排序主要鍵
3.排序完成,點選"ZZZZZ"這個欄位,用"取代"方式還原成空白

TOP