能用vba的话就直接gif图操作,0.0,不要急稳住
Sub test()
Dim arr, lastrow
Sheets.Add before:=Sheets(1)
Sheets(1).[a1].Value = "客户"
Sheets(1).[b1].Value = "货号"
Sheets(1).[c1].Value = "价格"
For i = 2 To Sheets.Count
arr = Sheets(i).[a1].CurrentRegion
lastrow = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets(1).Cells(lastrow, 2).Resize(UBound(arr, 1), 2) = arr
Cells(lastrow, 2).Offset(2, -1).Value = arr(1, 1)
Rows(lastrow & ":" & lastrow + 1).Delete
Next
End Sub