Office中国论坛/Access中国论坛

标题: [求助]循环取单元格的值问题 [打印本页]

作者: laixiaonian 时间: 2005-11-25 18:53
标题: [求助]循环取单元格的值问题
请高手帮帮我
就是我要把一个工作簿的内容复制到另一个工作簿，并且把第一列中的内容中后面两个字带“合计”和“小计”的单元格删除掉，代码如下
Sub CopyRow()

Dim i As Integer
Dim s As String
Dim c As String

Worksheets("Sheet1").Select

With Selection.CurrentRegion

i = .Rows.Count

'i = Worksheets("Sheet1").UsedRange.Rows.Count

For n = 1 To i

s = CurrentRegion.Cells(0, n).Value

c = VBA.Right(s, 2)

If c = 小计 Or 合计 Then

Worksheets("Sheet1").Rows(n).Delete

End If

Worksheets("Sheet1").Rows(n).copy

Worksheets("Sheet2").Select
Worksheets("Sheet2").Rows(n).Select
Worksheets("Sheet2").Paste

Next n
End With

End Sub

我运行时老是提示 s = CurrentRegion.Cells(0, n).Value这行出错，大家告诉我取单元格的值，是怎么写的

作者: 老鬼 时间: 2005-11-29 01:07
CELLS(0,N)指的是指定区域的0行（指定区域左上角那一行再往上一行）N列，如果你指定的区域是“B2”,那么CELLS(0,1)对应的区域就是“A2”,如果你指定的区域是“B1”，那么CELLS(0,1)就会出错，因为“B1”在第一行，再往上已经没有行了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)