做个宏试试运行下 Sub t() t_row = [A65536].End(3).Row For i = 1 To t_row If Range("a" & i) And Range("b" & i) <> "" Then Range("b" & i) = Range("a" & i) & Range("b" & i) End If Next End Sub ...