麻辣家族討論版版 » Excel程式區 » 請問如何獲取符合條件儲存格的數值

返回列表下一主題上一主題發帖

[發問] 請問如何獲取符合條件儲存格的數值

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: 屏東
註冊時間: 2014-12-21
最後登錄: 2019-1-4

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-7-27 15:21 | 只看該作者

[發問] 請問如何獲取符合條件儲存格的數值

各位前輩好:我在A3~A14儲存格區域,想得到B,C欄位不為零的數值,如右圖所示,想用VBA方式完成,請問各位大大這要如何完成,請各位前輩大大協助,謝謝!!

樓主熱帖

1 評分人數

GBKEE: 重複發帖金錢 -2

收藏

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: 屏東
註冊時間: 2014-12-21
最後登錄: 2019-1-4

論壇贊助勳章

5^#

發表於 2015-7-27 22:42 | 只看該作者

回復 4# GBKEE

測試ok,感謝版大{:3_48:} ,thanks

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-7-27 20:17 | 只看該作者

回復 3# Apple007
試試看

Option Explicit
Sub Ex()
With Range("b:c")
If Application.CountIf(.Cells, "0") Then
.Cells.Replace "0", "=1/0", xlWhole
.SpecialCells(xlCellTypeFormulas, xlErrors).Delete xlShiftToLeft
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 134
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2025-5-18

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

3^#

發表於 2015-7-26 13:39 | 只看該作者

如果您的內容都是如您圖示我沒法使用VBA幫您但可用這簡單的語法來寫
=IF(OR(B1=0,B1=""),C1,B1)

test.zip (2.01 KB)

小學生 Rank: 1

帖子: 21
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: 屏東
註冊時間: 2014-12-21
最後登錄: 2019-1-4

論壇贊助勳章

2^#

發表於 2015-7-26 13:15 | 只看該作者

請問要如何篩選後重排儲存格

本帖最後由 Apple007 於 2015-7-26 13:18 編輯

各位前輩大大您好:請問我要如何將圖中B欄及C欄數值為零或空白的儲存格刪除後,並重排如右圖所示,請各位大大協助幫忙,Thanks~

1.JPG (17.34 KB)

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題