使用xlwings写一段python,在Activesheet中批量寻找一段用逗号隔开的字符串,如果找到返回一字典找到的反回True,找不到返回FALSE

好的，我可以回答这个问题。以下是使用xlwings写的Python代码，用于在Activesheet中批量寻找一段用逗号隔开的字符串：

import xlwings as xw

def find_string_in_sheet(string):
    found = False
    result = {}
    sheet = xw.sheets.active
    for cell in sheet.used_range:
        if isinstance(cell.value, str) and string in cell.value.split(','):
            found = True
            result[cell.address] = True
    if found:
        return result
    else:
        return False

这段代码会在当前激活的Excel工作表中寻找用逗号隔开的字符串，并返回一个字典，其中包含找到的单元格地址和True值。如果没有找到，则返回False。

相关问题

帮我写一段VBA语言，自动隔开每一行

Sub SeparateLines()
Dim currentLine As Range
Dim lastRow As Long

lastRow = ActiveSheet.UsedRange.Rows.Count

For i = 1 To lastRow
Set currentLine = Range("A" & i)
currentLine.Value = Replace(currentLine.Value, " ", vbCrLf)
Next i

End Sub

该段VBA代码将遍历整个工作表，并将每一行中的空格替换为新的一行。请注意，该代码只会在第一列上运行，如果您需要在其他列上运行，请相应地更改代码中的“A”。

用VBA写一段EXCEL重复项批量合并代码

以下是用 VBA 写的 Excel 重复项批量合并代码：

Sub MergeDuplicateCells()

    Dim lastRow As Long
    Dim lastColumn As Long
    Dim cellValue As String
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim isDuplicate As Boolean
    
    lastRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lastColumn = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    For i = 1 To lastRow
        For j = 1 To lastColumn
            cellValue = ActiveSheet.Cells(i, j).Value
            If cellValue <> "" Then
                For k = i + 1 To lastRow
                    If cellValue = ActiveSheet.Cells(k, j).Value Then
                        isDuplicate = True
                        Exit For
                    End If
                Next k
                If isDuplicate Then
                    mergeCell i, k - 1, j
                    isDuplicate = False
                End If
            End If
        Next j
    Next i
    
End Sub

Sub mergeCell(firstRow As Long, lastRow As Long, column As Long)
    With ActiveSheet.Range(ActiveSheet.Cells(firstRow, column), ActiveSheet.Cells(lastRow, column))
        .Merge
        .HorizontalAlignment = xlCenter
    End With
End Sub

该代码将遍历整个工作表，并查找具有相同值的单元格。如果找到重复项，则将它们合并为一个单元格。请注意，此代码仅合并具有相同值的单元格，而不考虑任何格式或其他属性。如果需要，您可以根据需要进行调整和修改。