VBA 常用代码

1、运用VBA.Split() 给字符串分列，选取第一部分

例：“101203\其他货币资金\低于等于3个月的流动性理财存款”，选取“101203”

Sub test()Dim rows As Integer '声明变量rows = Range("A1048576").End(xlUp).Row '数据的最下边位置
'Range("c1") = rowsFor i = 1 To rowsIf (Range("B" & i) = "") ThenRange("B" & i) = Range("A" & i)Range("C" & i) = rowsRange("A" & i) = VBA.Split(Range("B" & i), "\")(0) '将字符串按“\”分列，取第一部分End IfNextEnd Sub

注：split函数的用法:

Split函数是在处理字符串时常用的一个函数,它的作用是将字符串按特定的字符分开,返回的是一个一维数组,数组的起始下标为0,看下面的例子

Sub test()Dim arr,brr,s,m,n,ys = "abc,d,e,f,g"
arr = Split(s,",")  '结果是一个包含5个项的一维数组
m = Split(s,")(0)  '令m为数据的第1个项,为abc brr =Split(s,",2)将s以逗号分为2项,brr(0)=abc,brr(1)="d,e,f,g"
n = Split(s,",2)(0)  '令n=abc
y = Split(s,",2)(1)  '令y="d,e,f,g"End Sub

现在有一个字符串"abc,d,e,f.g,h"，arr = Split(s,",")就是将字符串以","为分隔符分开,返回的arr是一个一维数组,arr(0)-abc,arr(1)=d,arr(2)=e,arr()=f,arr(4)=-g,当然在这里split(s,",")(0)与arr(0)是等价的,将split(s",")直接看成一个数组,(0)表示这个数组的第1项。如果不想将s全部分开,可以在分隔符后面再加上个参数来表示你想分成几份。比如split(s,",2)这里的2就表示将s分成2份即可,返回结果是"abc"和"d,e,fg",如果是split(s,",3)那么结果就是"abc","d","e,f,g"三个值了。

2、将excel 中的每张sheet单独保存成一个文件

Sub test()Dim sht As Worksheet    '声明变量Application.ScreenUpdating = False  '关闭屏幕更新For Each sht In Sheetssht.CopyActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\拆分后文件\" & sht.Name & ".xlsx"    '另存的位置ActiveWorkbook.Close
NextApplication.ScreenUpdating = True   '开启屏幕更新End Sub

VBA 常用代码 - 01相关推荐

太实用了！Excel VBA常用代码！
前两天有两位朋友留言想收集一些VBA的常用代码,今天开始会陆续分享一些! 记得收藏好哦,因为今后你应用到稍大型Excel VBA程序时,这其中某些代码肯定会用到. 来看看都是哪些常用代码: 下面先举一 ...
VBA 常用代码及自定义函数备忘
文章目录 1. 函数 1.1 Windows API 1.1.1 改变当前鼠标指针形状 1.1.2 Sleep 程序休眠 1.2 自定义函数 1.2.1 去除空格 1.2.2 测试图片格式 1.2.3 ...
[Excel.VBA常用代码实战大全].袁竹平.扫描版百度云
链接:https://pan.baidu.com/s/1vPQaUrZ2UbY7BS4wiHGnXw 提取码:68ee
vba 当前文件名_值得收藏的VBA编程常用代码3640
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
vba代码编程800例_一组实用的VBA常用编程代码语句分享
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
vba 当前文件名_值得学习和珍藏的VBA常用编程代码语句
分享成果,随喜真能量.大家好,今天继续和大家分享VBA编程中常用的过程代码.过程代码在这里讲解的语句非常简单单一,简单的语句组合起来就是一个复杂的过程,我们要认真掌握这些简单的过程,为我们复杂的工程服 ...
Excel VBA 编程的常用代码
强制声明变量 Option Explicit 说明:该语句必在任何过程之前出现在模块中. 声明常数用来代替文字值. Const ' 常数的默认状态就是 Private. Const My = 456 ...
Excel与VBA编程中的常用代码
Excel与VBA编程中的常用代码用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的! 使用Dim语句 Dim a as integer '声明A为整形变量 Dim a '声 ...
javascript常用代码大全
http://caibaojian.com/288.html 原文链接 jquery选中radio//如果之前有选中的,则把选中radio取消掉 $("#tj_cat .pro_ca ...

VBA 常用代码 - 01

VBA 常用代码 - 01相关推荐

最新文章

热门文章