```vba Sub ExtractEveryTenthRow() Dim i As Long, j As Long j = 1 ' C列的起始行 For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row ' 遍历A列的所有行 If i Mod 10 = 0 Then ' 如果行号是10的倍数 Cells(j, "C").Value = Cells(i, "A").Value ' 将A列的值复制到C列 j = j + 1 ' C列的下一行 End If Next i End Sub ```