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

[Catbert (宅男)]

※ 引述《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
推 philfeel978:喔喔!!!感謝板友，我原本的邏輯有點冗長XD