在Excel中按列值对行进行分组的解决方法可以使用VBA编程来实现。以下是一个示例代码：

Sub GroupRowsByColumnValue()
    Dim lastRow As Long
    Dim currentRow As Long
    Dim currentGroup As String
    Dim groupStartRow As Long
    
    ' 设置要分组的列号
    Dim groupColumn As Integer
    groupColumn = 1 ' 例如，按第一列的值进行分组
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, groupColumn).End(xlUp).Row
    
    ' 初始化分组起始行号
    groupStartRow = 2 ' 例如，第一行为表头，从第二行开始分组
    
    ' 循环遍历每行数据
    For currentRow = groupStartRow To lastRow
        ' 获取当前行的分组列值
        currentGroup = Cells(currentRow, groupColumn).Value
        
        ' 检查当前行的分组列值是否与上一行相同
        If currentGroup <> Cells(currentRow - 1, groupColumn).Value Then
            ' 如果不同，则在当前行的上一行插入一个分组标题行
            Rows(currentRow).Insert Shift:=xlShiftDown
            Cells(currentRow, groupColumn).Value = currentGroup
            Cells(currentRow, groupColumn).Font.Bold = True
            ' 更新分组起始行号
            groupStartRow = groupStartRow + 1
            ' 跳过新插入的分组标题行
            currentRow = currentRow + 1
        End If
    Next currentRow
End Sub

在这个示例代码中，我们首先设置要进行分组的列号（groupColumn），然后通过循环遍历每行数据。在循环中，我们获取当前行的分组列值并与上一行进行比较，如果不同，则在当前行的上一行插入一个分组标题行，并更新分组起始行号。最后，跳过新插入的分组标题行，继续循环遍历下一行数据。