vba代码格式化工具_vbs格式化

1.Excel条件格式化加色多个不同的公式显示' #REF! '的单元格?其显示' =#REF! '的格无法条件格式化。

2.VBA批量行删除如何效率化

以下是符合你需求的VBA代码：

```

Sub FormatTable()

Dim MyTable As Range

Set MyTable = Range("A1:W100") ' 如果你的表格范围不同，需要自行修改

With MyTable

' 1. 先按照E列升序排序

.Sort key1:=.Columns("E"), order1:=xlAscending, Header:=xlYes

' 2. 在E列后插入三列并写入内容

.Columns("E").Offset(0, 1).Resize(1, 3).Insert

.Range("F2").Value = "提现金额"

.Range("G2").Value = "账户余额"

.Range("H2").Value = "经手人"

' 3. FGH三列中的内容根据E列提取

.Columns("F").Offset(1, 0).FormulaR1C1 = "=RC[-1]"

.Columns("G").Offset(1, 0).FormulaR1C1 = "=R[-1]C + RC[-1]"

.Columns("H").Offset(1, 0).Value = "张三" '这里默认经手人为张三

' 4. 根据W列内容改变表格颜色

For Each Cel In .Columns("W").Cells

Select Case Cel.Value

Case "未处理"

Cel.EntireRow.Interior.ColorIndex = 3

Case "已受理"

Cel.EntireRow.Interior.ColorIndex = 4

Case "已处理"

Cel.EntireRow.Interior.ColorIndex = 5

Case Else

Cel.EntireRow.Interior.Pattern = xlNone

End Select

Next Cel

' 5. V列变更为数字格式

.Columns("V").NumberFormat = "0.00"

' 6. 缩小字体填充

With .Font

.Name = "宋体"

.Size = 9

End With

.Range("A4").Resize(.Rows.Count - 3, .Columns.Count).Interior.Pattern = xlSolid

' 7. 在Sheet2中插入表，数据源为Sheet1中的A1:W100

With Sheets("Sheet2").PivotTableWizard

.SourceData = MyTable.Address

.TableDestination = Sheets("Sheet2").Range("A1").Address

.RowGrand = False

.ColumnGrand = False

.CompactLayoutRowHeader = "行"

.CompactLayoutColumnHeader = "列"

.CompactLayoutPageHeader = "页"

End With

End With

End Sub

```

这段代码可以执行你所需要的大多数操作，包括排序、插入列并填充内容、提取数据、改变表格颜色、格式化数字、改变字体和填充、以及插入表。需要根据你自己表格的情况稍作修改即可。

Excel条件格式化加色多个不同的公式显示' #REF! '的单元格?其显示' =#REF! '的格无法条件格式化。

1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。

2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。

3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。

4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。

5、双击“获取Excel数据”按钮，输入以下代码：Private Sub GetDate_Click()?Dim i As Integer?Dim j As String?For i = 2 To 8 '数据位于2至8行?j = j & Chr(10) & Chr(13) & Sheets(1).Cells(i, 1) & " 。

6、?& Sheets(1).Cells(i, 2)?'读取每行数据?'格式化输出?Next i?Label1.Caption = Label1.Caption & jEnd Sub。

7、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码：Private Sub?Worksheet

-Activate()UserForm1.ShowEnd Sub。

8、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。

VBA批量行删除如何效率化

要条件格式化显示 '#REF!' 错误的单元格，可以按照以下步骤操作：

首先，选中你想要应用条件格式化的区域，这个区域应包含可能出现 '#REF!' 错误的所有单元格。

在 Excel 的主菜单栏上，点击“开始”选项卡。

在“开始”选项卡中，找到并点击“条件格式”按钮，它看起来像一个带有箭头指向右侧的方框。

在弹出的下拉菜单中，选择“新建规则”。

在“新建格式规则”对话框中，选择“使用公式确定要设置格式的单元格”。

在“格式值等于”下方的输入框中，输入以下公式： =ISERROR(A1) 这里的 "A1" 是你当前选中区域的第一个单元格，如果你的选区不同，这个引用应相应改变。例如，如果你的选区从 B3 开始，那么你应该写成 =ISERROR(B3)。

点击“格式”按钮来选择你希望出现 '#REF!' 错误时的单元格格式，如背景颜色、字体颜色等。设置完格式后，点击“确定”返回到“新建格式规则”对话框。再次点击“确定”，应用该规则到你之前选中的区域。这样，所有在选区中出现 '#REF!' 错误的单元格都会根据你设置的格式进行高亮显示。

请注意，ISERROR 函数会检测任何错误类型，包括 '#REF!'、'#N/A'、'#VALUE!' 等，如果你只想针对 '#REF!' 错误进行格式化，可能需要结合其他方法或者在数据源上进行调整以避免其他类型的错误。

用For循环肯定很慢的，可以先替换再用SpecialCells全部定位删除试试看，Specialcells是全部定位，效率很高，如果还不行只能用ADO再试试。

你可以参考下 这篇文章，如果不明白可以再讨论

://club.excelhome.net/thread-490908-1-1.html

网络问题不能登录账号