返回列表 上一主題 發帖

[發問] 只想要抓取符合條件的"第一筆"其他不要

gn001038600

帖子
21 
主題
1 
精華
0 
積分
52 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-3-13 
最後登錄
2025-3-26 
1# 跳轉到 »
發表於 2015-5-12 11:33 | 顯示全部帖子
sub aa()
dim data(100)

for i = 2 to sheet1.range("A65536").end(xlup).row
         if sheet1.cells(i,1)="你的條件"  then
                 a=a+1
                 data(a)=sheet1.cells(i,1)
         endif
next

for i = 1 to a
      <你要輸出的位置>=data(i)
next
end sub

您可以試看看這樣

TOP

gn001038600

帖子
21 
主題
1 
精華
0 
積分
52 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-3-13 
最後登錄
2025-3-26 
2#
發表於 2015-5-12 11:40 | 顯示全部帖子
回復 1# boblovejoyce
抱歉沒看到您只要第一筆
修正如下

sub aa()
dim data(100)

for i = 2 to sheet1.range("A65536").end(xlup).row
         if sheet1.cells(i,1)="你的條件"  then
                 a=a+1
                 data(a)=sheet1.cells(i,1)
                 goto lab1
         endif
next

lab1:
for i = 1 to a
      <你要輸出的位置>=data(i)
next
end sub

您可以試看看這樣

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題