小白求助

If sblx = "投诉" Then
maxh = Sheets("市级投诉明细").[a65536].End(xlUp).Row
Sheets("sheet1").Range(Sheets("sheet1").Cells(hs, 1), Sheets("sheet1").Cells(hs, 9)).Copy Sheets("市级投诉明细").Range(Sheets("市级投诉明细").Cells(maxh + 1, 1), Sheets("市级投诉明细").Cells(maxh + 1, 8))
End If
If sblx = "意向" Then
maxh = Sheets("意向明细").[a65536].End(xlUp).Row
Sheets("sheet1").Range(Sheets("sheet1").Cells(hs, 1), Sheets("sheet1").Cells(hs, 9)).Copy Sheets("意向明细").Range(Sheets("意向明细").Cells(maxh + 1, 1), Sheets("意向明细").Cells(maxh + 1, 8))
End If

顶顶

顶顶