Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1938|回复: 4

宏出现类型不匹配的情况,请大神看看

[复制链接]
发表于 2019-7-31 14:36 | 显示全部楼层 |阅读模式

       Range("g1").Resize(UBound(A)) = Application.Index(A, 0, j) '运行到这里出现类型不匹配的情况。 2-附表2:前端点位材料明细清单.rar (49.93 KB, 下载次数: 1)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2019-7-31 15:43 | 显示全部楼层
本帖最后由 爱疯 于 2019-7-31 15:48 编辑

如果单元格内容长度>255,用 application.index 会出错
http://club.excelhome.net/thread-1223430-1-1.html  6楼

回复

使用道具 举报

发表于 2019-7-31 15:45 | 显示全部楼层
Sub test3()
    Dim A, j
    Application.ScreenUpdating = False
    Call test4
    A = Range("a1").CurrentRegion
    For j = 7 To UBound(A, 2)
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = j    '表名不用A(2, j)是避免重复,比如 ao2和bb2内容一样
        Sheets(1).Range("a:f," & Columns(j).Address).Copy
        ActiveSheet.Paste
    Next j
    Sheets(1).Select
End Sub


'删除其它表
Sub test4()
    Dim i
    Application.DisplayAlerts = False
    For i = Sheets.Count To 2 Step -1
        Sheets(i).Delete
    Next
End Sub

回复

使用道具 举报

 楼主| 发表于 2019-7-31 16:12 | 显示全部楼层
爱疯 发表于 2019-7-31 15:45
Sub test3()
    Dim A, j
    Application.ScreenUpdating = False

谢谢大神出手,学习了!
回复

使用道具 举报

 楼主| 发表于 2019-7-31 16:21 | 显示全部楼层
爱疯 发表于 2019-7-31 15:43
如果单元格内容长度>255,用 application.index 会出错
http://club.excelhome.net/thread-1223430-1-1.ht ...

谢谢楼主,学习了,这个我真不知道。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 17:01 , Processed in 0.563893 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表