将列中相同内容的单元格内容标红

遍历每一列。
记录每一列中出现过的所有内容及其对应的行号。
检查哪些内容在该列中出现多次。
将出现多次的内容的单元格背景设置为红色。

from PyQt5.QtWidgets import QTableWidget, QTableWidgetItem, QColor

def check_and_highlight_columns(self):
    # 获取表格的行数和列数
    row_count = self.class_teacher_info_table.rowCount()
    column_count = self.class_teacher_info_table.columnCount()

    # 遍历每一列
    for col in range(column_count):
        content_rows = {}  # 用于记录每一列中出现过的所有内容及其对应的行号

        # 遍历每一行
        for row in range(row_count):
            current_item = self.class_teacher_info_table.item(row, col)
            if current_item is None:
                continue  # 如果当前单元格为空,跳过

            current_text = current_item.text()
            if current_text not in content_rows:
                content_rows[current_text] = []
            content_rows[current_text].append(row)

        # 检查哪些内容在该列中出现多次,并将这些单元格的背景设置为红色
        for text, rows in content_rows.items():
            if len(rows) > 1:
                for row in rows:
                    item = self.class_teacher_info_table.item(row, col)
                    if item is not None:
                        item.setBackground(QColor('red'))

# 调用方法
check_and_highlight_columns(self)

  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
您可以使用以下VBA代码来合并某一工作表的A列相同内容单元格: ```vba Sub MergeCells() Dim lastRow As Long Dim rng As Range Dim cell As Range ' 设置要操作的工作表 With ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为您要操作的工作表名称 ' 获取A列的最后一行 lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' 遍历A列单元格 For Each cell In .Range("A1:A" & lastRow) ' 检查当前单元格与下一个单元格是否相同 If cell.Value = cell.Offset(1, 0).Value Then ' 如果相同,则合并当前单元格和下一个单元格 If rng Is Nothing Then Set rng = cell Else Set rng = Union(rng, cell) End If Else ' 如果不相同,则合并已找到的相同内容单元格,并清空rng变量 If Not rng Is Nothing Then rng.Merge Set rng = Nothing End If End If Next cell End With ' 合并最后一组相同内容单元格(如果有) If Not rng Is Nothing Then rng.Merge End If ' 清除格式设置,以便显示合并后的内容 With ThisWorkbook.Worksheets("Sheet1") .Range("A1:A" & lastRow).HorizontalAlignment = xlCenter .Range("A1:A" & lastRow).VerticalAlignment = xlCenter .Range("A1:A" & lastRow).WrapText = True .Range("A1:A" & lastRow).EntireColumn.AutoFit End With End Sub ``` 请将代码的"Sheet1"替换为您要操作的工作表名称。运行此宏后,代码将遍历A列单元格,找到相同内容单元格并进行合并。最后,代码会清除格式设置,使合并后的内容、自动换行并调整列宽以适应内容。 请注意,此代码仅合并相邻的相同内容单元格。如果要合并A列非相邻的相同内容单元格,您可能需要进行额外的处理。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

PyAIGCMaster

1毛钱也是爱

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值