自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(3)
  • 资源 (1)
  • 收藏
  • 关注

原创 VBA学习练习-遍历工作簿,将数据合并汇总

工作中会遇到数据汇总,尤其是运营工作,一区二区分别填了之后需要手动复制黏贴好了之后上交,所以写了这个代码,但是还是有很多地方需要改进的,毕竟有些需要手动填的地方,如果有大佬可以指点一下,谢谢Sub 遍历所有sheet,并匹配填到指定sheet里()Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim a, b, c, d As Integer, n As Range, n_in, asc As Integer

2021-12-15 18:22:56 1503

原创 VBA学习练习-将多个单元格内容合并

excel有分列功能,能把一个单元格内容拆分开,但是并没有合并操作,有些插件可以做到,既然是学习练习,就自己动手写了一下这个功能将如下的数据内容合并到一个单元格内,并用逗号隔开(我这里指定的是输出内容填写在第一行右侧第一个空单元格,可以做适当改变)代码如下:Sub 单元格内容合并()Dim arr(), arr1() As Variant, lc, la As Integer, c, v, s As StringApplication.DisplayAlerts = False..

2021-12-03 10:54:58 4044

原创 VBA学习练习-拆分成多个工作簿

Sub 拆分成多个工作表()'将报表按指定列分类并保存到各工作表中Dim i, c As Long, bj As String, rng As Range, arr(), myrows, lc As IntegerApplication.ScreenUpdating = FalseApplication.DisplayAlerts = Falsemyrows = Application.InputBox("请输入内容从第几行开始") '分类处理的第一条记录在第几行i = myrowsc ..

2021-12-02 13:13:37 2025 1

mechrevo_mrs20102_6-intel(r)_prosetwi-fi_sthwfw6113_21.40.1.4_g_win10-64.exe

mechrevo_mrs20102_6-intel(r)_prosetwi-fi_sthwfw6113_21.40.1.4_g_win10-64.exe

2022-04-11

空空如也

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

TA关注的人

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