|
本帖最后由 cys888 于 2016-4-27 11:46 编辑
以下代码是用笨方法一个一个罗列,菜鸟求助高手怎样改才能简单?
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
。。。。。
看样子应该是这样 - FOR i = 1 to 9 '看要到哪一列
- if cells(9,i) >= cells(3,i) then
- Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
- exit sub
- end if
- if cells(9,i) <= cells(4,i) then
- Sheets("1").[P6:P1010] = Sheets("1").cells(6,i).resize(1005).value
- exit sub
- end if
- next
复制代码
|
|