[已解决]Cells(3 * i - 6, 1))什么意思啊 多谢

c1x2l3

Cells(3 * i - 6, 1))什么意思A  “多谢

  i = 3 是定义的哪个变量啊？

For i = 3 To endrow
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去
Next i

最佳答案

月排行榜 / 总排行榜

枯禅

2009-12-26 23:19

没有大错，但有些小问题：

1、没有申明变量，最前面最好加下个：

Dim i%, endrow%
endrow = Sheet1.[a65536].End(xlUp).Row

2、没有清除二表的数据：

接着上面加一个

Sheet2.Cells.ClearContents

3、如果运行程序时，如果激活工作表不是表一，就会出错：

Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
Worksheets(1).Range(sheet1.Cells(i, 1), sheet1.Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去

4、用copy不如直接取值

如果按这个思路，比较完整一点的代码：

Sub a()
Dim i%, endrow%
endrow = Sheet1.[a65536].End(xlUp).Row
Sheet2.Cells.ClearContents
For i = 3 To endrow
    Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
    Worksheets(1).Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去
Next i

End Sub

跳转到最佳答案楼层

枯禅

Cells(3 * i - 6, 1))第一次表示a3,以后递增3行，即a6,a9依次类推

c1x2l3

请问 那这段代码错误的地方是什么啊？我怎么运行不出来结果呢 非常感谢哦

c1x2l3

For i = 9 To endrow

Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))           '把标题贴过去
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 3, 1))  '把每条数据抬头贴过去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去
Next i

End Sub

枯禅

没有大错，但有些小问题：

1、没有申明变量，最前面最好加下个：

Dim i%, endrow%
endrow = Sheet1.[a65536].End(xlUp).Row

2、没有清除二表的数据：

接着上面加一个

Sheet2.Cells.ClearContents

3、如果运行程序时，如果激活工作表不是表一，就会出错：

Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
Worksheets(1).Range(sheet1.Cells(i, 1), sheet1.Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去

4、用copy不如直接取值

如果按这个思路，比较完整一点的代码：

Sub a()
Dim i%, endrow%
endrow = Sheet1.[a65536].End(xlUp).Row
Sheet2.Cells.ClearContents
For i = 3 To endrow
    Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
    Worksheets(1).Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去
Next i

End Sub

c1x2l3

太感谢了

我整个的代码是

Sub MakeSalaryList()
Dim i As Integer
Dim endrow As Integer

endrow = Sheet1.Range("a65536").End(xlUp).Row - 1                       '测出数据的最后一行

Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))           '把标题贴过去
For i = 3 To endrow
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))  '把每条数据抬头贴过去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))  '把数据贴过去
Next i

End Sub
 

您看还有什么问题啊？非常感谢

c1x2l3

您刚才提供的代码程序很好，我刚试过 ，太谢谢了 ，请问如果按我开始的思路，除了您说的外，其它没可改的吗？可否发个完整的啊？[em04]

xdwy81129

路过，学习，看看

wayy

请别人测试代码的时候最好将附件发上来。

shejis0001

感谢分享