Excel:用于在column = yes时将行名和列标题添加到行的宏

Sub AddRowLabelsAndColumnHeaders()
    Dim i As Integer
    Dim j As Integer
    
    ' 获取当前工作表对象
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 获取行数和列数
    Dim rowCount As Integer
    Dim colCount As Integer
    rowCount = ws.UsedRange.Rows.Count
    colCount = ws.UsedRange.Columns.Count
    
    ' 循环每一行
    For i = 1 To rowCount
        ' 检查column列是否为yes
        If ws.Cells(i, colCount).Value = "yes" Then
            ' 将行名和列标题添加到行
            For j = 1 To colCount - 1
                ws.Cells(i, j).Value = ws.Cells(1, j).Value & " " & ws.Cells(i, j).Value
            Next j
        End If
    Next i
End Sub