pySVN8A的博客

将单元格公式改一下:=IF(ISERROR(原公式),"",原公式)

Function dmzh(sumber As Long)If sumber > 599999 Then dmzh = "SH" & Format(sumber, "000000")Else dmzh = "SZ" & Format(sumber, "000000")End IfEnd FunctionSub 转换代...

Sub d()Cells.Interior.Pattern = xlNoneSelection.EntireRow.Interior.Color = RGB(250, 230, 200)Selection.EntireColumn.Interior.Color = RGB(250, 230, 200)End Sub图例：

一：在单元格中输入公式1：在单元格中输入普通公式Sub t1() Range("d2") = "=b2*c2"End Sub结果：2:指定多列，进行普通公式计算Sub t2() Dim x As Integer For x = 3 To 5 Cells(x, 4) = "=b" & x & "* c" & x Next...

=IF(CODE(A1)=54,"SH"&A1,"SZ"&A1)

Sub 单个查找关键字()    ‘LookAt:= xlPart按模糊查找        Cells.Find(what:="关键", After:=ActiveCell, LookIn:=xlValues, LookAt:= _        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=Fals...

Sub Find_Error()  Dim rng As Range 'range=区域  Dim what As String 'String=字符串?  what = "Error"    ' 关键字 Error  Do    Set rng = ActiveSheet.UsedRange.Find(what)    If rng Is Nothing Then      Exi...

Sub test()  Dim r%, i%  Dim arr, brr  Dim reg As New RegExp  With reg    .Global = True    .Pattern = "7"   '关键字      End With  With Worksheets("sheet1")    r = .UsedRange.Find(what:="*", Lo...

Sub 初始化()  Dim Color_Num As Integer  Word.Text = GetSetting("PUPNAME", "APPNAME", "高亮显示_查找的内容", "[输入关键字]")  zt_B.Value = GetSetting("PUPNAME", "APPNAME", "高亮显示_字体加粗", True)  zt_I.Value =

快速在空格，批量写入公式1：选择"空值"2:输入公式：3：关键一步：Ctal + Enter