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

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

Sub test()

Dim rows As Integer '声明变量

rows = Range("A1048576").End(xlUp).Row '数据的最下边位置
'Range("c1") = rows

For i = 1 To rows

    If (Range("B" & i) = "") Then
        Range("B" & i) = Range("A" & i)
        Range("C" & i) = rows
        Range("A" & i) = VBA.Split(Range("B" & i), "\")(0) '将字符串按“\”分列，取第一部分
    End If
    
Next

End Sub


注：split函数的用法:

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

Sub test()

Dim arr,brr,s,m,n,y

s = "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 Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\拆分后文件\" & sht.Name & ".xlsx"    '另存的位置
    ActiveWorkbook.Close
Next

Application.ScreenUpdating = True   '开启屏幕更新

End Sub


 

392、 将一列以文本保存的数字转换为数字

Sub txtToNumber()

Application.ScreenUpdating = False

For Each Rng In Range(“D2:D” & Range(“d65536”).End(xlUp).Row)

If VBA.IsNumeric(Rng) Then

Range(Rng.Address) = Rng + 0

End If

Next Rng

Application.ScreenUpdating = True

End Sub
393、 将一列中的值转换为数值

Sub valueToNumber()

Application.ScreenUpdating = False

For Each Rng In Range(“C2:C” & Range(“A65536”).End(xlUp).Row)

Rng.Value = Rng

Next Rng

Application.ScreenUpdating = True

End Sub

394、 经纬度距离计算函数

Function distance(lon1 As Range, lat1 As Range, lon2 As Range, lat2 As Range)

Dim d As Double

Dim dislon As Double

Dim dislat As Double

Dim dislatp As Double

dislon = lon1 - lon2

dislatp = lat1 + lat2

dislat = lat1 - lat2

d = 111100 * VBA.Sqr((dislon * VBA.Cos(dislatp * 3.14159265358979 / 360)) ^ 2 + dislat ^ 2)

distance = d

End Function

——本文内容来源于《全民一起VBA基础篇》

' 强制变量声明
Option Explicit 
	
Sub function_name（）
	'定义变量
	Dim a,name
	'定义常量
	const PI = 3.14159
	'定义对象
	Set A_Range = Worksheets("Sheet4").UsedRange
	'赋值
	a = 18.35
	r = 2

	'流控制
	'while循环
		Do While Cells(r, 2) <> ""
	        Cells(r, 6) = Cells(r, 2) + Cells(r, 4)
	        r = r + 1
	    Loop
	'for循环
		For i = 1 To j
	
		Next

	'if判断
	    If a > 75 Then
	    '单元格写入
            Cells(8, 6) = "A"
        Elseif a > 55  Then
            Cells(8, 6) = "B"
        Else
        	Cells(8, 6) = "C"
        End If
	'switch分支
		Select Case B.Cells(j, 3)
			Case Is = A.Cells(1, 3)

			Case Is = A.Cells(1, 6)

			Case Is = A.Cells(1, 6)

			Case Else
			
		End Select

End sub