Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1961|回复: 2

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

[复制链接]
发表于 2016-4-27 11:07 | 显示全部楼层 |阅读模式
本帖最后由 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
   。。。。。
最佳答案
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
复制代码
发表于 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
复制代码

评分

参与人数 1 +1 收起 理由
cys888 + 1

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2016-4-27 11:43 | 显示全部楼层
gufengaoyue 发表于 2016-4-27 11:22
看样子应该是这样

非常感谢!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-16 02:49 , Processed in 0.274645 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表