在VBA程式下(Excel)，如何將儲存格式設成迴圈來跑呢

Question

先進們：
小女子的程式如下
If Sheets("價平").Range("A2").Value = Sheets("Call").Range("A2").Value Then
If Sheets("價平").Range("B2").Value = Sheets("Call").Range("C2").Value Then
Sheets("公式").Range("B2") = Sheets("價平").Range("B2").Value
End If
Sheets("公式").Range("A2") = Sheets("價平").Range("A2").Value
End If
我想把 Range("A2") 等格式中的A2或B2設成迴圈去跑到A500及B500左右，此能做嗎???
拜託，這是論文資料要用到的，希望大家能救救我 !!!TKS!!!!!!

Answer 1

可以改用cells(列，欄).value
迴圈如下：
for i = 2 to 500
if sheet1.cells(i,1).value = sheet2.cells(i,1).value then
if sheet1.cells(i,2).value = sheet2.cells(i,2).value then
sheet3.cells(i,2).value = sheet1.cells(i,2).value
endif
sheet3.cells(i,1).value = sheet1.cells(i,1).value
endif

Answer 2

建議你兩個方法：
不一定要用VBA，可直接用公式解決：
sheets("公式").range("A2")裡：=IF(價平!A2=CALL!A2,價平!A2,"")
sheets("公式").range("B2")裡：=IF(AND(價平!A2=CALL!A2,價平!B2=CALL!C2),價平!B2,"")
然後直接下拉即可

若堅持使用VBA：
---------------------------------
Dim rng價平A As Range
Dim rng價平B As Range
Dim rngCallA As Range
Dim rngCallC As Range
Dim rng公式A As Range
Dim rng公式B As Range
Dim intI As Integer

Set rng價平A = Worksheets("價平").Range("A2")
Set rng價平B = Worksheets("價平").Range("B2")
Set rngCallA = Worksheets("Call").Range("A2")
Set rngCallC = Worksheets("Call").Range("C2")
Set rng公式A = Worksheets("公式").Range("A2")
Set rng公式B = Worksheets("公式").Range("B2")


For intI = 0 To 499 '變更這裡的數字，看你要處理多少行列

If rng價平A.Offset(intI, 0).Value = rngCallA.Offset(intI, 0).Value Then

If rng價平B.Offset(intI, 0).Value = rngCallC.Offset(intI, 0).Value Then
rng公式B.Offset(intI, 0) = rng價平B.Offset(intI, 0).Value
End If

rng公式A.Offset(intI, 0) = rng價平A.Offset(intI, 0).Value
End If

Next

---------------------------------


以上...驗算看看，應該沒錯...

Answer 3

能否將EXCEL原始檔寄給在下,在下研究看看,但並不保證能讓您非常滿意
在下的信箱:[e-mail]