自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

神奇的BI

点滴知识分享

  • 博客(4)
  • 资源 (2)
  • 收藏
  • 关注

原创 VBA快速合并字符串方法

在前几天分享的文章【快速对比数据】中,使用了如下代码,一下小朋友问为什么要再第20行代码中使用Trim函数呢?是否可以在构建字符串时将处理呢?本文将就讲一下VBA中快速连接字符串的集中方法。我们使用一个简单的示例,提取1-10中的偶数并输出结果,判断偶数非常简单,程序主框架如下。Sub Demo() Dim i As Integer, msg As String For i = 1 To 10 If Int(i / 2) = (i / 2) Then '构建字符串ms

2020-12-23 02:16:44 15736 2

原创 VBA解析JSON数据(6)-- JSON数据长度

JavaScript代码可以读取JSON数据KEY和VALUE,JSON数据可以多层嵌套,如何获取JSON数据长度呢?示例JSON数据如下,数据共用3组。{ "people":[ { "firstName":"Brett", "lastName":"McLaughlin", "email":"brettM@abc.com" }, { "firstName":"Jason",

2020-12-22 03:06:57 1174

原创 快速对比数据

实例需求:日常工作中经常需要对比数据,例如如下的参会名单,现在需要对比两届参会名单的异同,100个人的名单,看得老眼昏花也未必能够准确的找出差异。Function strCompare(ByVal Rng1 As Range, ByVal Rng2 As Range) As String Dim strRemove As String, strAdd As String, strKey Dim currDic, newDic, c Set currDic = CreateObj

2020-12-21 04:08:48 1712 2

原创 BI神器Power Query(23)-- 同一列内多重替换(3)

示例需求:省份清单中“自治区”名称过长,在做报表展示时效果不理想,希望将其替换为简称,例如:内蒙古自治区替换为“内蒙古”。这个直接使用Excel中的替换也可以实现,毕竟只有5个自治区需要替换,接下来看看Power Query中如何实现。单击选中数据表中任意单元格,例如A6,依次单击【数据】>【自表格/区域】,打开Power Query编辑器。第一个方法参见:BI神器Power Query(21)-- 同一列内多重替换(1)M代码如下:let 源 = Excel.CurrentWork

2020-12-19 14:08:19 3266 2

Excel工作表中的特殊按钮示例文件

Excel工作表中的特殊按钮,无需任何代码实现点击按访问网站

2022-10-07

JSON示例数据文件

JSON数据示例文件,演示如何使用VBA解析复杂JSON数据。

2019-08-13

VBA绘制多边形

VBA示例文件,用于在Excel和Word中绘制多边形,多种实现方法。

2018-02-24

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除