123
返回列表 上一主題 發帖

[發問] ~ 發現一個新的問題 關於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

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
2#
發表於 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 
3#
發表於 2014-4-1 13:23 | 顯示全部帖子
回復 3# GBKEE


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

formula is too complex to be assigned to object

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

TOP

willy1205

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


   喔喔 OK

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

謝謝

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
5#
發表於 2014-4-2 12:53 | 顯示全部帖子
謝謝版主，再請問一下
我今天有個檔案我開了50個sheet,每個sheet我都設了一個按鈕用為導入資料至sheet1 ,
但今天我要整理sheet1的資料我想再寫個按鈕使用版主給我的巨集整合資料，
可是出現""公式太複雜要分配給對象""
這樣我該怎麼刪除按鈕 存檔 重新開啟檔案呢??

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
6#
發表於 2014-4-7 11:48 | 顯示全部帖子
回復 12# GBKEE


版主在請問一下 如果今天我資料只到A43, 不是由A欄最後一列往上算，這樣range這邊該如何修改??   

R = Range("A" & Rows.Count).End(xlUp).Row    'A欄由最後一列往上到有資料的列號

TOP

willy1205

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


    ex.zip (9.54 KB)


如附檔，裡面一個表格，最下面簽名用，所以資料只會到A37 ，有辦法在不影響表格大小之下刪除中間資料與資料中間沒有的空格列嗎??

TOP

willy1205

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


  謝謝版主
真是受益良多

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
9#
發表於 2014-4-11 12:26 | 顯示全部帖子
回復 19# willy1205


    ex.zip (19.09 KB)

如附檔，再sheet1輸入資料，按下按鈕導入資料至甲君及乙君的表裡面，
但是目前除了甲君乙君以外，總共有35個人，一個人有2個可能主辦或協辦，
所以光一個導入資料的按鈕就有70個if判斷式.....
不知道一個巨集是否擠得下70個if的判斷式嗎??
還是有其他可以簡化的寫法呢??

謝謝版主

TOP

willy1205

帖子
29 
主題
2 
精華
0 
積分
32 
點名
0  
作業系統
windows 7 
軟體版本
專業版 
閱讀權限
10 
註冊時間
2014-3-31 
最後登錄
2014-7-10 
10#
發表於 2014-4-11 14:34 | 顯示全部帖子
本帖最後由 willy1205 於 2014-4-11 14:36 編輯

回復 20# GBKEE

剛好像沒存好巨集再放一次 ex.zip (47.55 KB)
怕又沒存好 我把巨集複製再筆記本

是的，判斷主辦或協辦的名子是哪個就把資料導入到那個人的sheet裡面，
我是寫If Worksheets("sheet1").Range("B8").Value = "甲君" Then 利用儲存格上的名子判斷輸入的資料該去甲君的sheet還是其他人的
所以有70個判斷式...

ex.zip (47 KB)

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
123
返回列表 上一主題