[已解决]笨方法是一个一个罗列，怎样改才能简单？

cys888

以下代码是用笨方法一个一个罗列，菜鸟求助高手怎样改才能简单？

If [A9] >= [A3] Then
      Sheets("1").[P6:P1010] = Sheets("1").[A6:A1010].Value
      Exit Sub
   End If
If [A9] <= [A4] Then
      Sheets("1").[R6:R1010] = Sheets("1").[A6:A1010].Value
      Exit Sub
   End If

If [B9] >= [B3] Then
      Sheets("1").[P6:P1010] = Sheets("1").[B6:B1010].Value
      Exit Sub
   End If
If [B9] <= [B4] Then
      Sheets("1").[R6:R1010] = Sheets("1").[B6:B1010].Value
      Exit Sub
   End If

If [C9] >= [C3] Then
      Sheets("1").[P6:P1010] = Sheets("1").[C6:C1010].Value
      Exit Sub
   End If
If [C9] <= [C4] Then
      Sheets("1").[R6:R1010] = Sheets("1").[C6:C1010].Value
      Exit Sub
   End If
   。。。。。

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-4-27 11:22

看样子应该是这样

1. FOR i = 1 to 9 '看要到哪一列
   
2.         if cells(9,i) >= cells(3,i) then
   
3.                 Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
   
4.                 exit sub
   
5.         end if
   
6.         if cells(9,i) <= cells(4,i) then
   
7.                 Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
   
8.                 exit sub
   
9.         end if
   
10. next

复制代码

跳转到最佳答案楼层

gufengaoyue

看样子应该是这样

1. FOR i = 1 to 9 '看要到哪一列
   
2.         if cells(9,i) >= cells(3,i) then
   
3.                 Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
   
4.                 exit sub
   
5.         end if
   
6.         if cells(9,i) <= cells(4,i) then
   
7.                 Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
   
8.                 exit sub
   
9.         end if
   
10. next

复制代码

cys888

gufengaoyue 发表于 2016-4-27 11:22
看样子应该是这样

非常感谢！！