12
返回列表 上一主題 發帖

[發問] 選取大於某數的值

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5# 跳轉到 »
發表於 2020-4-23 16:25 | 只看該作者
回復 4# hcm19522

h大大 : 您好!
謝謝您的耐心賜教和熱心幫忙!感恩

TOP

hcm19522

帖子
1360 
主題
4 
精華
0 
積分
1370 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-4-19 

熱烈參與勳章
4#
發表於 2020-4-23 12:22 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/589069815
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2020-4-22 12:54 | 只看該作者
回復 2# rouber590324
感謝賜教!
只是我的檔案版面比較適合函數公式。
再次謝謝您^^

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2020-4-22 11:08 | 只看該作者
用VBA如下

Sub TEST()
Sheet1.[B2:IV65536].ClearContents
X = Sheet1.Cells(1, Columns.Count).End(xlToLeft)
Y = Sheet1.Cells(2, Columns.Count).End(xlToLeft)
For M = 2 To X
If Sheet1.Cells(1, M) - 9 > 0 Then
  Sheet1.Cells(2, Y + 1) = Sheet1.Cells(1, M)
    Y = Y + 1
  End If
  Next
End Sub
羅

TOP

        靜思自在 : 小事不做、大事難成。
12
返回列表 上一主題