2018年4月2日
vba-其他程序
摘要： '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) 阅读全文
posted @ 2018-04-02 21:37 乔乔biubiubiu 阅读(258) 评论(0) 推荐(0)
No.6-域名整理vba
摘要： '域名复制单元格（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)) 阅读全文
posted @ 2018-04-02 21:35 乔乔biubiubiu 阅读(154) 评论(0) 推荐(0)
No.5-微信格式整理vba
摘要： ' 微信格式整理 Sub Macro6() Selection.AutoFilter ActiveSheet.Range("$A$1:$D$8").AutoFilter Field:=1, Criteria1:="图片" Rows("2:7").Select Selection.Delete Shi 阅读全文
posted @ 2018-04-02 21:33 乔乔biubiubiu 阅读(369) 评论(0) 推荐(0)
No.4-谷歌商店格式整理vba （下载量转汉字）
摘要： '转换大小写 Sub Macro1() Columns("G:G").Select Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, Searc 阅读全文
posted @ 2018-04-02 21:32 乔乔biubiubiu 阅读(131) 评论(0) 推荐(0)