| 所在主题： | |
| 文件名: 求改.zip | |
| 资料下载链接地址: https://bbs.pinggu.org/a-2268803.html | |
本附件包括：
|
|
| 附件大小: | |
|
想用VBA做一个小程序，按照每一个"::"前面的";"进行分列换行，但是貌似失败了。。EXCEL提示内容：下标越界。求大神解答。
由于我是真小白，代码全程都是边百度边写的，所以这个错误不知道怎么错了。。求大神解释纠正。 Sub 分开() Dim arr, i&, cc(1 To 5000, 1 To 2), n&, o&, bb, p&, q&, m& arr = Sheet2.[a1].CurrentRegion For i = 4 To UBound(arr) Do While InStr(arr(i, 1), ";") m = m + 1 q = Len(arr(i, 1)) o = InStr(1, arr(i, 1), "::") If o > 0 Then o = InStr(o + Len("::"), arr(i, 1), "::") End If bb = Left(arr(i, 1), o) p = InStrRev(bb, ";") cc(m, 2) = Left(arr(i, 1), p) cc(m, 1) = arr(i, 2) arr(i, 1) = Right(arr(i, 1), q - p) Loop Next [a10:b20].ClearContents [a10].Resize(m, 2) = cc Range("A1").Select End Sub |
|
熟悉论坛请点击新手指南
|
|
| 下载说明 | |
|
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。 2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。 3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。 (如有侵权，欢迎举报) |
|
京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
