帖子: 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?不需要再手動輸入?

樓主熱帖

訪客

小學生 Rank: 1

帖子: 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

chiang0320

中學生 Rank: 2

帖子: 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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 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

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 92
點名: 0
作業系統: ?
軟體版本: ?
閱讀權限: 20
註冊時間: 2016-3-17
最後登錄: 2019-11-19

5^#

發表於 2016-3-19 10:09 | 只看該作者

回復 5# c_c_lai

懂了，謝謝！

TOP

clio

中學生 Rank: 2

帖子: 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