摘要: 将原始金额 整理成带有","分隔符的数据 例如: 代码片段: Option ExplicitSub 规范格式() Dim ws As Worksheet Dim i%, s As String Dim regex As Object Set ws = ActiveWorkbook.Worksheet 阅读全文
posted @ 2021-01-13 22:31 dontbealarmedimwithy 阅读(612) 评论(0) 推荐(0) 编辑
摘要: 一直想学下自定义排序,之前有了解到sort方法排序和一个个对比的排序方法,今天遇到个需要按固定顺序来排序的问题,所以一时兴起就去网上找了下答案。 排序后结果 代码片段: Sub order_by_customize() Dim ws As Worksheet Dim arr(), brr() Dim 阅读全文
posted @ 2021-01-12 22:07 dontbealarmedimwithy 阅读(412) 评论(0) 推荐(0) 编辑
摘要: 前些日子遇到了个需要把excel数值 按照万为单位,保留三位小数的需求 直接想到的是用 excel的自定义格式,一顿操作后发现没这么简单,千分位分隔符并不能解决问题, 如果保留两位小数的话可以用 0!.0,!0"万" 但是三位小数就要其他办法了。。。 于是 网上搜了下 找到了两个方法: 1.选中单元 阅读全文
posted @ 2021-01-11 21:02 dontbealarmedimwithy 阅读(6129) 评论(0) 推荐(0) 编辑
摘要: 在制作报表的时候,会遇到要调整单元格或者区域的对齐方式,用Range.HorizontalAlignment 属性就可以 代码片段 Sub HorizontalAlignment() Dim r As Range Set r = Range("A1:E1") With r '写入文本到第一个单元格 阅读全文
posted @ 2021-01-10 21:33 dontbealarmedimwithy 阅读(1704) 评论(0) 推荐(0) 编辑