摘要:
'1、单元格中最后一个为 . 则删除 否则不作任何操作 Sub m() x = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim s, str For i = 1 To x str = Range("B" & i).Value s = Right(str, 1) 阅读全文
摘要:
'域名复制单元格(D E)有值复制 为空复制C E Sub Macro1() x = Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To X If Len(Range("D" & i)) 0 Then If Len(Range("E" & i)) 阅读全文