在Excel VBA中，可以使用以下代码示例按特定值对行进行对齐：

Sub AlignRowsByValue()
    Dim ws As Worksheet
    Dim searchValue As Variant
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要搜索和对齐的值
    searchValue = "特定值"
    
    ' 设置要进行对齐操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为你的工作表名称
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For Each cell In ws.Range("A1:A" & lastRow)
        ' 检查单元格的值是否与搜索值匹配
        If cell.Value = searchValue Then
            ' 获取该行的范围
            Set rng = ws.Range(cell, ws.Cells(cell.Row, ws.Columns.Count).End(xlToLeft))
            ' 对齐该行
            rng.HorizontalAlignment = xlCenter
        End If
    Next cell
End Sub

在上述代码中，首先设置要搜索和对齐的值（在代码中使用变量searchValue表示）。然后，根据你的需求，设置要进行对齐操作的工作表（在代码中使用变量ws表示）。接下来，通过lastRow变量获取工作表上最后一行的行号。然后，使用For Each循环遍历每一行，检查单元格的值是否与搜索值匹配。如果匹配，就使用Set rng语句获取该行的范围，并将其水平对齐方式设置为居中（在代码中使用xlCenter表示）。

请注意，上述代码中的Range和Cells函数是用于指定单元格和范围的方法，xlUp和xlToLeft是Excel VBA中的常量，用于指定方向（向上和向左）。

你可以根据自己的需求修改代码中的搜索值、工作表名称和对齐方式。