12345
返回列表 上一主題 發帖

[發問] ~ 發現一個新的問題 關於IF判斷式

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
1# 跳轉到 »
發表於 2014-3-31 16:19 | 只看該作者

如何用VBA將資料中不要的空白列刪除，而將資料整合呢??

最近面臨到問題是資料已經篩選好了，因為將不要的資料整列刪除，只留下要的資料，導致資料之間有空格存在，
EX:
     A     B     C    D    E .....
1  甲   10   20
2
3 丙   30    50
4
5 丁  60    80
因為資料很多，有辦法使用VBA將資料整合成以下這樣嗎???   謝謝大家
  A     B     C    D    E .....
1  甲   10   20
2  丙   30    50
3  丁  60    80
4
5

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-12-27 
2#
發表於 2014-3-31 18:45 | 只看該作者
http://support.microsoft.com/kb/2679461/zh-tw

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-3-31 19:50 | 只看該作者
回復 1# willy1205
  1. Sub Ex()
  2.     Range("A:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  3.     'SpecialCells        特殊目標
  4.    'xlCellTypeBlanks 空格
  5.    'EntireRow          整個列
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
4#
發表於 2014-4-1 10:40 | 只看該作者
回復 3# GBKEE


   謝謝大大!!
work very well!

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
5#
發表於 2014-4-1 13:23 | 只看該作者
回復 3# GBKEE


    再請問大大一個問題，我再指定按鈕巨集的時候出現錯誤：

formula is too complex to be assigned to object

這個原因是為什麼??之前都好好的怎麼今天要多寫幾個按鈕就出錯了，該怎麼解決??

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2014-4-1 15:23 | 只看該作者
回復 5# willy1205
formula is too complex to be assigned to object
公式太複雜要分配給對象
按鈕刪除,存檔後關閉Excel,開啟檔案設按鈕試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
7#
發表於 2014-4-1 17:37 | 只看該作者
回復 6# GBKEE


   喔喔 OK

在問一下 如果我的資料上面第一行是有文字的並且需要保留下來
EX :
            A         B       C .. ..
1       人名  金錢    性別
2        甲      100     M
這樣的話 我再範圍那邊要做什麼修改呢??   Range("A:C").

謝謝

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2014-4-1 20:07 | 只看該作者
回復 7# willy1205
  1. Option Explicit
  2. Sub Ex()
  3.     Dim R As Long
  4.     R = Range("A" & Rows.Count).End(xlUp).Row    'A欄由最後一列往上到有資料的列號
  5.     Range("A2:C" & R).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  6.     'SpecialCells       特殊目標
  7.     'xlCellTypeBlanks   空格
  8.     'EntireRow          整個列
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lp986749

帖子
19 
主題
6 
精華
0 
積分
30 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-7-8 
最後登錄
2022-8-19 
9#
發表於 2014-4-1 21:22 | 只看該作者
如果是下列情況時
              A          B         C  
1           01        03      04

2                       05

3           06        07       08

4

5          09          10       11
第二列無法刪除用何種方式設定?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2014-4-2 07:10 | 只看該作者
回復 9# lp986749
  1. Option Explicit
  2. Sub Ex() '.SpecialCells(xlCellTypeBlanks).EntireRow 如 9# 的重疊區域 程式無法刪除
  3.     With Range("A:C")
  4.      '   MsgBox .SpecialCells(xlCellTypeBlanks).EntireRow.Address
  5.         'A2,C2 會有重疊區域 $2:$2,$2:$2,$4:$4
  6.         Intersect(.Cells, .SpecialCells(xlCellTypeBlanks).EntireRow).Delete xlUp
  7.         'Intersect 方法 傳回 Range 物件，此物件代表兩個或多個範圍重疊的矩形範圍。
  8.         '整合為不重疊的區域,程式即可刪除
  9.     End With
  10.     'SpecialCells       特殊目標
  11.     'xlCellTypeBlanks   空格
  12.     'EntireRow          整個列
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 話多不如話少，話少不如話好。
12345
返回列表 上一主題