冷色008

摘要： Sub 分列() '以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _ ... 阅读全文

摘要： '宏操作 Sub 复制超级链接() For a = 1 To 100 '这里控制读取A列的第1到10行，你根据自已的要求修改一下起始和结束行数 If Cells(a, 1).Hyperlinks.Count > 0 Then Cells(a, 2).Value = Cells(a, 1).Hyperlinks.Item(1).Name If Cells(a... 阅读全文