在具有相同值的单元格周围创建边框

发布于 2024-09-05 02:03:45 字数 941 浏览 10 评论 0原文

我有一张像下面这样的桌子。如何让 Excel 在第四列中具有相同数字的组周围放置边框，以便组周围有边框。我认为条件格式可以做到这一点，但我不知道如何做到。所以我认为唯一的选择是宏。有人可以帮忙吗？

 1 64436 549419 1  
 2 64437 549420 1  
 3 64438 549421 1  
 4 64439 549422 1  
 5 64440 549423 1  
 6 64441 549424 1  
 7 64442 549425 1  
 8 64443 549426 1  
 9 64444 549427 1  
 10 64445 549428 1  
 11 64446 549429 1  
 12 64447 549430 1  
 13 64448 549431 2  
 14 64449 549432 2  
 15 64450 549433 2  
 16 64451 549434 2  
 17 64452 549435 2  
 18 64453 549436 2  
 19 64454 549437 2  
 20 64455 549438 2  
 21 64456 549439 2  
 22 64457 549440 4  
 23 64458 549441 4  
 24 64459 549442 5  
 25 64460 549443 5  
 26 64461 549444 5  
 27 64462 549445 5  
 28 64463 549446 5  
 29 64464 549447 5  
 30 64465 549448 6  
 31 64466 549449 6  
 32 64467 549450 6  
 33 64468 549451 6  
 34 64469 549452 6  
 35 64470 549453 6  
 36 64471 549454 6  
 37 64472 549455 9  
 38 64473 549456 9  
 39 64474 549457 9

原文

I have a table like the one below. How can I get Excel to put borders around groups with the same number in the 4th column so that there is a border around the groups. I was thinking conditional formatting could do it but I can't think how. So I think the only option is a macro. Could anybody help?

 1 64436 549419 1  
 2 64437 549420 1  
 3 64438 549421 1  
 4 64439 549422 1  
 5 64440 549423 1  
 6 64441 549424 1  
 7 64442 549425 1  
 8 64443 549426 1  
 9 64444 549427 1  
 10 64445 549428 1  
 11 64446 549429 1  
 12 64447 549430 1  
 13 64448 549431 2  
 14 64449 549432 2  
 15 64450 549433 2  
 16 64451 549434 2  
 17 64452 549435 2  
 18 64453 549436 2  
 19 64454 549437 2  
 20 64455 549438 2  
 21 64456 549439 2  
 22 64457 549440 4  
 23 64458 549441 4  
 24 64459 549442 5  
 25 64460 549443 5  
 26 64461 549444 5  
 27 64462 549445 5  
 28 64463 549446 5  
 29 64464 549447 5  
 30 64465 549448 6  
 31 64466 549449 6  
 32 64467 549450 6  
 33 64468 549451 6  
 34 64469 549452 6  
 35 64470 549453 6  
 36 64471 549454 6  
 37 64472 549455 9  
 38 64473 549456 9  
 39 64474 549457 9

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

鹤仙姿 2024-09-12 02:03:46

我看不到一个简单的非宏解决方案来满足您的需求，但 PowerUser 的解决方案似乎还不错。

这是一个基于宏的解决方案，它将在最后一列中具有相同数字的行周围放置边框。我假设您的数据位于 A:D 列中。

要使用此宏，只需单击列表中的任何单元格，然后触发该宏。

作为快速指南：

AddBorders 是主要宏，它只是循环遍历最后一列中的所有单元格，并确定何时边框合适
AddBorder 是一个简短的例程，它添加边界。

作为奖励，AddBorder 会从 Excel 的 56 种调色板中选择随机颜色，以便每个边框都有不同的颜色，以便于查看

子 AddBorders()
    将 startRow 变暗为整数
    将 iRow 变暗为整数
    起始行 = 1    
    对于 iRow = 2 到 ActiveCell.CurrentRegion.Rows.Count    
        如果 WorksheetFunction.IsNumber(Cells(iRow + 1, 4)) 那么
            如果 Cells(iRow, 4) <>单元格(iRow - 1, 4) 然后
               添加边框开始行，iRow - 1
               起始行 = i行
            结束如果
        别的
               添加边框起始行、iRow
        结束如果   
    下一个 iRow    
结束子

Sub AddBorder(startRow As Integer, endRow As Integer)
    暗淡边框范围作为范围
    将随机颜色调暗为整数
    随机颜色 = Int((56 * Rnd) + 1)
    设置 borderRange = Range("A" & startRow & ":D" & endRow)
    borderRange.BorderAround ColorIndex:=randomColor, Weight:=xlThick    
结束子

I cannot see a simple non-macro solution to exactly what you need but the solution from PowerUser seems okay.

Here is a macro based solution that will put a border around rows that have the same digit in the final column. I will assume your data are in columns A:D.

To use this macro just click any cell within your list and then fire the macro.

As a quick guide:

AddBorders is the main macro that simply loops through all the cells in the final column and works out when a border is appropriate
AddBorder is a short routine that adds the border.

As a bonus, AddBorder selects a random color from Excel's 56 color palette so that each of your borders are different colors to make easier viewing

Sub AddBorders()
    Dim startRow As Integer
    Dim iRow As Integer
    startRow = 1    
    For iRow = 2 To ActiveCell.CurrentRegion.Rows.Count    
        If WorksheetFunction.IsNumber(Cells(iRow + 1, 4)) Then
            If Cells(iRow, 4) <> Cells(iRow - 1, 4) Then
               AddBorder startRow, iRow - 1
               startRow = iRow
            End If
        Else
               AddBorder startRow, iRow
        End If   
    Next iRow    
End Sub

Sub AddBorder(startRow As Integer, endRow As Integer)
    Dim borderRange As Range
    Dim randomColor As Integer
    randomColor = Int((56 * Rnd) + 1)
    Set borderRange = Range("A" & startRow & ":D" & endRow)
    borderRange.BorderAround ColorIndex:=randomColor, Weight:=xlThick    
End Sub

回复收藏 0 原文

拥抱没勇气 2024-09-12 02:03:46

我想出了这个解决方案，它在我的 Excel 2010 上工作得很奇怪：/
我无法在 2003 年测试它，所以请告诉我是否可以。

Sub PaintBorder()
Dim iRow As Integer
iRow = 1
Dim strTemp As String
strTemp = Range("D" & iRow).Value
Dim strPrev As String

Dim sectionStart As Integer
sectionStart = 1

Do
    strPrev = strTemp
    strTemp = Range("D" & iRow).Value

    If strPrev <> strTemp Then
        ActiveSheet.Range(Cells(sectionStart, 1), Cells(iRow - 1, 4)).BorderAround xlSolid, xlMedium, xlColorIndexAutomatic
        sectionStart = iRow
    End If
    iRow = iRow + 1
Loop Until strTemp = vbNullString
End Sub

I came out with this solution, it works strange on my Excel 2010 :/
I cannot test it on 2003, so please let me know if thats fine.

Sub PaintBorder()
Dim iRow As Integer
iRow = 1
Dim strTemp As String
strTemp = Range("D" & iRow).Value
Dim strPrev As String

Dim sectionStart As Integer
sectionStart = 1

Do
    strPrev = strTemp
    strTemp = Range("D" & iRow).Value

    If strPrev <> strTemp Then
        ActiveSheet.Range(Cells(sectionStart, 1), Cells(iRow - 1, 4)).BorderAround xlSolid, xlMedium, xlColorIndexAutomatic
        sectionStart = iRow
    End If
    iRow = iRow + 1
Loop Until strTemp = vbNullString
End Sub

回复收藏 0 原文

瀞厅☆埖开 2024-09-12 02:03:46

你只是想让它更容易被人眼阅读吗？如果是这样，我建议交替背景颜色。例如，每当第四列中的数字发生变化时，背景颜色就会从白色变为蓝色，反之亦然。我一直这样做：

添加一个附加列 E。由于您的参考列是 D，因此输入：
=MOD(IF(D5>>D4,E4+1,E4),2)
（即，如果该行的列 D 与最后一行的 D 不同，则从 0 更改为 1 或 1 更改为 0）
隐藏该列，以便最终用户看不到它。
制作 2 个条件公式。如果您的隐藏值为 0，第一个会将行颜色更改为白色。如果您的隐藏值为 1，第二个会将其更改为蓝色。

无宏。没有 VBA 编码。只有 1 个隐藏列和一些条件公式。即使您的 D 列跳过数字，颜色仍应正确交替:)

（我每天在 XL 2003 上使用这个。我希望它在 2007 年也能工作）

回复收藏 0 原文

忆离笙 2024-09-12 02:03:45

您需要使用相对引用。

选择要对其进行条件格式设置的列范围。
在各自的条件下输入以下三个公式：
- =AND($C2=$C3,$C3=$C4)
  - 这个是针对中间的项目。（两侧边框）
- =AND($C2>>$C3,$C3=$C4)
  - 这是该组中的第一个。（左、上、右边框）
- =AND($C2=$C3,$C3>>$C4)
  - 这是该组中的最后一个。（左、下、右边框）
根据需要设置它们的格式。

将所有“$C”替换为“${Your Column}”。请注意，这不会在单个项目周围放置任何边框，因为您在选择中不能再有三个条件格式条件。