返回列表 上一主題 發帖

[發問] 關於VBA變數問題

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-3-17 23:38 | 只看該作者

[發問] 關於VBA變數問題

請問一個問題
浮動的大數據，利用countif函數算出數量
假設算出來數量是35663，再把列刪掉，如下:
------------------------------------------------------------------
Sub 巨集1()

    Rows("2:35663").Select
    Selection.Delete Shift:=xlUp

End Sub

------------------------------------------------------------------
每次需要用手動自己輸入所得的數量
35663是一個變數，請問要怎麼寫成VBA?不需要再手動輸入?
收藏 分享

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
6#
發表於 2016-3-24 11:13 | 只看該作者
這個有二種方式處理
Dim x As Long
    Dim Rows_Str As String
   
    'x變數請自行設定
    Rows_Str = "2:" & CStr(x)
    Rows(Rows_Str).Delete shift:=xlUp
   
    '另一個方法是用Range來處理
    With ActiveSheet
        
        .Range(.Rows(2), .Rows(x)).Delete shift:=xlUp
   
    End With

這二個都能達到相同的目的
clio

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
5#
發表於 2016-3-19 10:09 | 只看該作者
回復 5# c_c_lai


    懂了，謝謝！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2016-3-19 07:27 | 只看該作者
回復 4# chiang0320
x 為一個變數型態宣告
你的提問： 為何""不用包到x   卻多了&
           Rows("2:x").delete     
"2:x" 被視為是一個字串型態，執行時則會產生
------------------------
執行階段錯誤 '13'
型態不符合
------------------------
x = 35663
Rows("2:" & x).Delete

"2:" & x 即等於 "2:35663"
所以一切均能正常執行。

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
3#
發表於 2016-3-19 00:33 | 只看該作者
回復 2# 訪客


    Rows("2:x").delete     為何不能寫成這樣？

正確寫法，為何""不用包到x   卻多了&

TOP

訪客

帖子
8 
主題
2 
精華
0 
積分
8 
點名
0  
作業系統
Window7 
軟體版本
Office2007 
閱讀權限
10 
性別
男 
註冊時間
2016-3-18 
最後登錄
2024-4-11 
2#
發表於 2016-3-18 21:41 | 只看該作者
回復 1# chiang0320
x = 35663
Rows("2:" & x).Delete

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題