Question

请教VBA高手，关于“range"对象作用于worksheet时失败

我的代码是这样的，要实现的目的很简单，就是在多个表中找到所有有的按钮名称相同的数据行复制到第三个工作表以“H3”开始的单元格区域
Private Sub CommandButton1_Click()
Dim titlecon As Integer
Dim title_a(12) As String ‘这个是原打算复制标题的，现在用在复制数据，用数组复制没问题
titlecon = WorksheetFunction.CountA(Sheets("415").Range("a1:z1"))
Sheets("415").Range("1:1").Cells(1, titlecon).CurrentRegion.Copy Sheets(3).Range(Cells(3, 8), ＿Cells(3, 8 + titlecon ’现在是这句会出现＜错误"1004"，应用程序定义错误或对象定义错误＞

'上面是复制标题用的，还在测试中
'下面这些改用数组复制后没出现问题，但是直接copy的话就会出现在上面的“错误1004”
Dim sheetnums As Integer
Dim daterows As Integer
Dim datecols As Integer

Dim copycont As Integer
copycont = 4
sheetnums = Worksheets.Count
For i = 4 To sheetnums
daterows = WorksheetFunction.CountA(Sheets(i).Range("a1:a1000")) '获取当前工作表中有记录的行数
datecols = WorksheetFunction.CountA(Sheets(i).Range("a1:z1")) '获取当前工作表的总列数
For j = 2 To daterows
For k = 1 To datecols
If Sheets(i).Cells(j, k).Value = CommandButton1.Caption Then
For o = 1 To datecols
title_a(o) = Sheets(i).Cells(j, o).Value
Sheets(3).Cells(copycont, o + 7).Value = title_a(o)
Next o
'Sheets(i).Rows(j).Copy Sheets(i).Range("h" & copycont) ‘就是这句，展开对象就会有range"对象作用于worksheet时失败,我发现凡是包含range的都不行
copycont = copycont + 1
End If
Next k
Next j
Next i
'Sheets(3).Range("h:i").Sort Key1:=Columns("h"), Key2:=Columns("i"), Header:=xlYes
'Sheets(3).Range(Sheets(3).Cells(1, 1), Sheets(3).Cells(copycont, datecols)).RowHeight=_ Sheets(3).StandardHeight
Sheets(3).Range("h3:v32").Select
Range("m20").Active
End Sub
不仅如此，在调试中我监视的——Sheets("415").Range("1:1")——的值就已经出现“应用程序定义错误或对象定义错误”，但这句话应该是没有语病的呀。还有我用的是2010版本的EXCEL，

Answer 1

你对整行复制，必须从A列粘贴单元格才够数量，复制到H列当然不行。拿2003版来说，Rows(i).Copy 共复制了256个单元格，复制到Range("h" & copycont)，H右边的单元格个数已没有256了，所以失败

追问

这个在我的表里不可能，我把表拆开两个，每一个列数不会超过26，也不会超65565行的

追答

Sheets(i).Rows(j).Copy Sheets(i).Range("h" & copycont)

上面这句就是我前面说的问题，你复制的是一行，粘贴到H就不行。
1004错误那句，你拿出来的代码本身就不完整，无法分析。

追问

非常谢谢你的回答，我这里贴的是用数组之前的最后一个版本，我尝试过很多可能，最终归结到“range"的问题上，我知道range还可以用cells指定区域，但是还是报同样的错。我学过C++，我很想知道EXCEL中是如何定义range这个方法的，也许那样才能找到问题的所在