求一段循环代码，有附件，谢谢···

jinbo3535

要循环的内容都有在附件中描述，希望高手帮忙给段代码···{:soso_e183:}

swl4561255

1. Private Sub CommandButton1_Click()
   
2.     Dim a, b As Range
   
3.     Range(Cells(1000, 1), Cells(1000, 13)).Copy Sheets(1).[A1]
   
4.     Set a = Sheets(1).Range("A:A").Find([B998].Value, lookat:=xlWhole, searchdirection:=xlNext)
   
5.     Set b = Range("A1001:A65536").Find([B998].Value, lookat:=xlWhole, searchdirection:=xlNext)
   
6.     If a Is Nothing Then
   
7.         Range(Cells(b.Row, 1), Cells(b.Row, 13)).Copy Sheets(1).Range("A" & Sheets(1).[A65536].End(3).Row + 1)
   
8.     End If
   
9. End Sub
   

复制代码

清风竹-

试试，是否符合要求。

jinbo3535

谢谢楼上的，可能我要循环的内容没表达清楚，我现在上传的附本中，对循环重新描述了一下，希望您能帮忙看看！谢谢···{:soso_e181:}

清风竹-

jinbo3535 发表于 2012-6-3 19:42
谢谢楼上的，可能我要循环的内容没表达清楚，我现在上传的附本中，对循环重新描述了一下，希望您能帮忙看看 ...

增加了自动填写序号的代码。

jinbo3535

清风竹- 发表于 2012-6-3 19:13
试试，是否符合要求。

先谢谢您愿意为我解决这个难题······刚刚试了一下，有一些好像和我想要的循环不太一样！其实，我只需要在汇总工作表里：a.参数（绿色单元格），循环一次+1，例如：循环第一次是1，第二次就是2，第三次就是3······这样到924！  b. 然后下面的粉红色区域里，我都有公式向计算区里提取我要的数据：例如：B1001-B1924的单元格里已经有公式：=计算区!B$13、C1001-C1924的单元格里已经有公式：=计算区!D$13（计算区和粉红色的提取数据区域里的公式我都写好了），所以，我只需要在汇总工作表里，把1001行 到 1924行做循环，一次把一整行复制，然后粘贴成数值就行了！说那么多，可能有点乱乱的，我总结一下：循环第一次，B998=1，然后把1001整行"复制"，然后"选择性粘贴成数值"！循环第二次，B998=2，然后把1002整行"复制"，然后"选择性粘贴成数值"！如此类推循环924次！不知，我表达的意思，您能明白吗，看能不能改改代码！

jinbo3535

swl4561255 发表于 2012-6-3 18:54

先谢谢您愿意为我解决这个难题······刚刚试了一下，您的代码和我想要的循环不一样，可能是我没表达清楚！其实，我只需要在汇总工作表里：a.参数（绿色单元格），循环一次+1，例如：循环第一次是1，第二次就是2，第三次就是3······这样到924！  b. 然后下面的粉红色区域里，我都有公式向计算区里提取我要的数据：例如：B1001-B1924的单元格里已经有公式：=计算区!B$13、C1001-C1924的单元格里已经有公式：=计算区!D$13（计算区和粉红色的提取数据区域里的公式我都写好了），所以，我只需要在汇总工作表里，把1001行 到 1924行做循环，一次把一整行复制，然后粘贴成数值就行了！说那么多，可能有点乱乱的，我总结一下：循环第一次，B998=1，然后把1001整行"复制"，然后"选择性粘贴成数值"！循环第二次，B998=2，然后把1002整行"复制"，然后"选择性粘贴成数值"！如此类推循环924次！不知，我表达的意思，您能明白吗，看能不能改改代码！


  

jinbo3535

清风竹- 发表于 2012-6-3 20:13
增加了自动填写序号的代码。

谢谢，刚刚没看到您又修改了一下，我现在正在试···

jinbo3535

清风竹- 发表于 2012-6-3 20:13
增加了自动填写序号的代码。

谢谢，是我想要的循环！

微笑的鱼-1

我想知道怎么样可以设置代码，比如用1表示张三，2表示李四，3表示王五，当我敲1的时候可以自动生成张三，求大神帮帮忙谢谢！灰常感谢！