VBA下标越界求助

q23

求大神，下面的代码执行不出结果，汇总表没有数据



Sub a()
Dim a%, b%, c%, d%, e$, f$, at, bt
e = Format(Now(), "yyyy")
f = Format(Now(), "mm")
Set at = Sheets("考勤表").Range("s4:AW3000").CurrentRegion
With Sheets("汇总表")
    .Range("a2").Resize(Rows.Count - 2, 7).ClearContents
    bt = .Range("a2").Resize(25678, 4)
End With
For a = 4 To 3000

For b = 19 To 49
If InStr(at(a, b), "h") Then
d = d + 1
bt(d, 1) = at(a, 1)
bt(d, 2) = at(a, 2)
bt(d, 3) = DateSerial(e, f, at(2, b))
bt(d, 4) = at(a, b)
End If
Next
Next
End Sub

sdytsxd991122

还是结合附件来看吧，没附件不太好判断

三分醉，七分醒

怎么没有附件呢，有点瞎摸象的感觉

语虚何以言知

盲猜工作簿中没有叫做"考勤表"的sheet  或者考勤表前后有空格什么的

liulang0808

大概率是c = Sheets("考勤表").Cells(4, 19)中的表名问题
建议楼主直接拷贝下表名吧，看看表名是否一致或者存在空格之类的

q23

错了，各位大神，是这段代码的问题，因为放一个模块了，这个代码开始是下标越界，现在没有问题但是运行不出结果
Sub a()
Dim a%, b%, c%, d%, e$, f$, at, bt
e = Format(Now(), "yyyy")
f = Format(Now(), "mm")
Set at = Sheets("考勤表").Range("s4:AW3000").CurrentRegion
With Sheets("汇总表")
    .Range("a2").Resize(Rows.Count - 2, 7).ClearContents
    bt = .Range("a2").Resize(25678, 4)
End With
For a = 4 To 3000

For b = 19 To 49
If InStr(at(a, b), "h") Then
d = d + 1
bt(d, 1) = at(a, 1)
bt(d, 2) = at(a, 2)
bt(d, 3) = DateSerial(e, f, at(2, b))
bt(d, 4) = at(a, b)
End If
Next
Next
End Sub

q23

Sub a() Dim a%, b%, c%, d%, e$, f$, at, bt e = Format(Now(), "yyyy") f = Format(Now(), "mm") Set at = Sheets("考勤表").Range("s4:AW3000").CurrentRegion With Sheets("汇总表")     .Range("a2").Resize(Rows.Count - 2, 7).ClearContents     bt = .Range("a2").Resize(25678, 4) End With For a = 4 To 3000  For b = 19 To 49 If InStr(at(a, b), "h") Then d = d + 1 bt(d, 1) = at(a, 1) bt(d, 2) = at(a, 2) bt(d, 3) = DateSerial(e, f, at(2, b)) bt(d, 4) = at(a, b) End If Next Next End Sub