这个代码怎么写

fengdavid

具体条件见附件 Book1.zip (9.62 KB, 下载次数: 14)

2013-5-10 06:14 上传

点击文件名下载附件

grf1973

你该发一个数据多一点的表格，这样才可以判断订单号所在的行是多少。

fengdavid

grf1973 发表于 2013-5-10 08:59
你该发一个数据多一点的表格，这样才可以判断订单号所在的行是多少。

Book1.zip (10.77 KB, 下载次数: 11)

2013-5-10 12:41 上传

点击文件名下载附件

fengdavid

这下数据够多了

grf1973

1. Sub tt()
   
2.     With Sheet1
   
3.         mr = .[L65536].End(3).Row
   
4.         .Range("K2:K" & mr).ClearContents
   
5.         r = mr
   
6.         For i = mr To 2 Step -1
   
7.             If .Cells(i, 1) <> "" Then
   
8.                 .Cells(i, "K") = .Cells(r, "L")
   
9.                 r = i - 1
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

grf1973

循环倒过来做就很容易。

grf1973

是通过A列是否为空判断是否订单号所在的行的。如果A列出现其他情况需要重新设定判断条件。

fengdavid

grf1973 发表于 2013-5-10 15:28

这句改一下就满足要求了
.Cells(i, "K") = .Cells(r, "K")
谢谢

fengdavid

grf1973 发表于 2013-5-10 15:30
是通过A列是否为空判断是否订单号所在的行的。如果A列出现其他情况需要重新设定判断条件。

同学你好！我把条件稍改动了下，再麻烦给解决下，谢谢 Book1.zip (10.94 KB, 下载次数: 4)

2013-5-11 16:56 上传

点击文件名下载附件

grf1973

只要改一句

1. Sub tt()
   
2.     With Sheet1
   
3.         mr = .[L65536].End(3).Row
   
4.         .Range("K2:K" & mr).ClearContents
   
5.         r = mr
   
6.         For i = mr To 2 Step -1
   
7.             If .Cells(i, 1) <> "" Then
   
8.                 .Cells(i, "K") = Application.Sum(Range(.Cells(i, "L"), .Cells(r, "L")))
   
9.                 r = i - 1
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码