摘要:
宏本身很简单,不过处理带链接的单元格,费了不少劲,主要是原来有个陋习,取单元格的值时,比较懒,没用cells(i,j).value,而是直接用cells(i,j),所以给添加链接时,因为最后一个参数使用了Cells(i,j),而不是Cells(i,j).value,导致类型不匹配报错.Sub MergeRow()Dim i, j, k As Integer Dim iStart As Integer iStart = 2 For i = 3 To 65536 If Cells(i, 3).Value = "" Then Exit For If Cells(i, 3).Value Cell 阅读全文
摘要:
只是为了记录一下,下次备用Sub TreatCell() Dim i, j, k Dim Ary Dim str For i = 2 To 38147 For j = 2 To 11 If InStr(Worksheets("Sheet3").Cells(i, j).Value, ";") > 0 Then str = "" Ary = Split(Worksheets("Sheet3")... 阅读全文