求助，大神过来帮忙看看，有没有好方法

nyh04

327718098 发表于 2017-6-9 10:27
Sub text()
Dim arr As Variant, hh As Long
arr = Range("a2").CurrentRegion

你好，可否上传一个附件

327718098

nyh04 发表于 2017-6-9 14:28
你好，可否上传一个附件

就你楼主那个附件，把代码复制进去，运行就可以了