Excel VBA 宏根据值格式化行

Question

大家好，我有一张表格，我想用 vba 格式化，因为它有很多值，而且一个一个格式化需要很长时间。

例子

客户 ID ---------- 员工 ---------- 工作时间

0001 ------------------乔什 -------------5

0001 ------------------卡尔 -------------5

0001 ------------------乔 --------------5

0005 ------------------肯 --------------5

0005 ------------------杰夫 --------------5

0008 ------------------乔 --------------5

0008 ------------------乔什 -------------5

0009 ------------------卡尔 -------------5

0011 ------------------乔 --------------5

0011 ------------------卡尔 --------------5

我想在同一个 ClientID 的最后一个下方应用一个边框，以将它们与 ClientID 的其余部分分开，以便在查看信息时更容易阅读，因此输出应该是这样的：

客户 ID ---------- 员工 ---------- 工作时间

0001 ------------------乔什 -------------5

0001 ------------------卡尔 -------------5

0001 ------------------乔 --------------5

---

0005 ------------------肯 --------------5

0005 ------------------杰夫 --------------5

---

0008 ------------------乔 --------------5

0008 ------------------乔什 -------------5

---

0009 ------------------卡尔 -------------5

---

0011 ------------------乔 --------------5

0011 ------------------卡尔 --------------5

---

我猜我需要某种循环来向下 ClientID 列并检查每个 ClientID..一旦出现新的 ClientID 然后在该行的顶部或前一行的底部添加一个边框。我知道我应该有一些代码，如果有人能指出我正确的方向或给我一些线索，我可以继续写一些东西。

Answer 1

如果你有如下图格式的数据：

然后下面的宏将在客户端 ID 更改时添加边框。此宏假定客户端 ID 已按升序或降序排序。

宏

Sub border()
'Macro valid & comments valid for Excel 2007 or greater

'Dimensions all the initial variables; it is good practice to declare all your variables at top and to capitalize one letter so that when VBA interprets the variable when you exit the row, it will automatically make the variable uppercase and you know you spelled it correctly

'variable for current row number when looping through all the data
Dim Ro As Integer
'variable for the maximum number of rows in the dataset
Dim mRo As Integer
'variable for the maximum number of columns in the dataset
Dim mCo As Integer

    'selects the first sheet in the active workbook to use as the parent object for all code contained in the WITH statement.  VBA is object oriented meaning there are a lot of parent-child relationships.  In this case, all the code inside the WITH statement is the parent, or containing object, and the internal code are the children objects
    With Sheets(1)
        'Determines last row in the range of all data
        'Uses .Rows.Count to find the last row in Excel (1,048,576 for Excel 2007+) and then goes all the way up (xlUp) until it hits a "different" type of cell.  Almost 99.9999% of the time, row 1,048,576 will be blank, so this will traverse up until it reaches the first non-blank row, or the bottom of our dataset.  This is similar to starting out at A1048576 and pressing Ctrl+Up Arrow
        mRo = .Cells(.Rows.Count, 1).End(xlUp).Row
        'Same action as the row, but goes to the left until it reaches non-blank data
        mCo = .Cells(1, .Columns.Count).End(xlToLeft).Column

        'Removes borders from original table
        .Range(.Cells(1, 1), .Cells(mRo, mCo)).Borders.LineStyle = xlNone            

        'loops through data to compare when a Client ID changes
        'Starts are row 2 and performs a for loop until it reaches the end of the dataset at the mRo row
        For Ro = 2 To mRo
            'Checks to see if the client ID changes & applies a border
            'Looks to see if the row below (Ro + 1) in the first column (Client ID) is different from the current row's (Ro) first column.  If there is a difference, then the Client ID just changed and we want to add a border
            If .Cells(Ro, 1).Value <> .Cells(Ro + 1, 1).Value Then
                'Adds border to bottom of rows
                'The range is selected from the current row (Ro) first column to the current row (Ro) last column (mCo).  The formatting of the border was actually determined from using the VBA "Record Macro" function (if you don't see "Developer" in your ribbon bar, click on either FILE or the Office symbol in the upper left hand corner of Excel, go to OPTIONS, CUSTOMIZE RIBBON and check the DEVELOPER checkbox on the right hand side.  Then, you will see the DEVELOPER tab in the ribbon bar and you can use the "Record Macro" feature
                With .Range(.Cells(ro, 1), .Cells(ro, mCo)).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThick
                End With
            End If
        Next
    End With
End Sub

结果

Answer 2

使用条件格式公式规则：

=$A1<>$A2  

应用于 A:C，或者可能通过添加一个空白行作为分隔符（例如在每次更改客户 ID 时使用小计 - 然后可以将其更改为边框）。