Re: [算表] VBA For迴圈問題

看板Office作者 (宅男)時間13年前 (2012/11/07 16:47), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串2/3 (看更多)
※ 引述《philfeel978 (廢柴二號)》之銘言: : 軟體:Excel : 版本:2010 : 問題摘要:欲將單一欄(B)資料中由上往下找出某一筆值小於2大於1.7的儲存格, : 並將其列數傳回後,貼於特定儲存格內(C2)中以便後續運算, : 然而在逐行執行時並無進入迴圈也無顯示特殊錯誤訊息, : 還是有邏輯上的錯誤,煩請板友解惑,非常感謝。 : 以下是code: : == : Set PasteData = Range("B2", PasteTimeL) 'PasteTimeL已定義 : For i = 2 To PasteData.Rows.Count : If Worksheets(1).Cells(i, 2).Value < 2 Then : Set Paste = Range(Cells(i, 2)) : Set Range("C2").Value = Paste.Row : End If : Exit For : Cells(i, 2).Value = 1.7 : Next i Set PasteData = Range("B2", PasteTimeL) 'PasteTimeL已定義 For i = 2 To PasteData.Rows.Count If Cells(i,2).Value > 1.7 and Cells(i, 2).Value < 2 Then Range("C2").Value = i Exit For End if Next i -- 不知道這樣是不是你要的??? 請先試試吧 -- 不勉強一份連綴不起來的情感 也不輕易放棄 一段曾經有過的感情 是隨緣也是執著 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.222.40.241

11/07 16:54, , 1F
喔喔!!!感謝板友,我原本的邏輯有點冗長XD
11/07 16:54, 1F
文章代碼(AID): #1GcY0qn2 (Office)
討論串 (同標題文章)
文章代碼(AID): #1GcY0qn2 (Office)