自定义博客皮肤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 = False Application.DisplayAlerts = False Dim a, b, c, d As Integer, n As Range, n_in, asc As Integer

2021-12-15 18:22:56 1523

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

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

2021-12-03 10:54:58 4132

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

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

2021-12-02 13:13:37 2065 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关注的人

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