解析：首先需要在Excel中使用VBA编写一个宏，遍历A列的单元格，找到值为"张浩"的单元格，然后从该单元格所在行开始复制整行数据。

代码如下：

Sub CopyRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim startRow As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1") '根据实际情况修改工作表名称
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)

    For Each cell In rng
        If cell.Value = "张浩" Then
            startRow = cell.Row
            Exit For
        End If
    Next cell

    If startRow > 0 Then
        ws.Rows(startRow).Copy
    End If
End Sub

将以上代码复制到Excel的VBA编辑器中，并运行宏，即可实现功能。