[已解决]求把指定单元变为当前单元格代码更改。

shazilo

求把指定单元变为当前单元格代码更改。附件

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-7-30 15:02

不是很明白你的意思，不知道你是不是要做一个循环啊
如果是的话，那么代码如下：

1. sub dp()
   
2. dim EndRow as long,i as long
   
3. endrow=range("A65536").end(xlup).row
   
4. for i= 2 to endrow
   
5.     If (Range("a" & i) = "上衣" And Range("B" & i) < 500 Then
   
6.         cells(i,"C")="正常"  
   
7.     ElseIf(Range("a" & i) = "裤子" And Range("B" & i) < 400 Then
   
8.         cells(i,"C")="正常"   
   
9.     ElseIf(Range("a" & i) = "衬衣" And Range("B" & i) < 300 Then
   
10.         cells(i,"C")="正常"
    
11.     end if
    
12. next i
    
13. end sub

复制代码

跳转到最佳答案楼层

EXCEL-YQ

不是很明白你的意思，不知道你是不是要做一个循环啊
如果是的话，那么代码如下：

1. sub dp()
   
2. dim EndRow as long,i as long
   
3. endrow=range("A65536").end(xlup).row
   
4. for i= 2 to endrow
   
5.     If (Range("a" & i) = "上衣" And Range("B" & i) < 500 Then
   
6.         cells(i,"C")="正常"  
   
7.     ElseIf(Range("a" & i) = "裤子" And Range("B" & i) < 400 Then
   
8.         cells(i,"C")="正常"   
   
9.     ElseIf(Range("a" & i) = "衬衣" And Range("B" & i) < 300 Then
   
10.         cells(i,"C")="正常"
    
11.     end if
    
12. next i
    
13. end sub

复制代码

EXCEL-YQ

由于上附件麻烦，所以就没有上了
其中endrow=range("A65536").end(xlup).row
表示提取A列中最后一个非空单元格行号
Range("a" & i)和cells(i,"C")是一带变量值的单元格表示方法