excel trung như thế nào phê lượng đem hành số liệu thay đổi thành liệt số liệu

Ngươi dùng cái gì chụp hình? Thấy không rõ bên trong là cái gì.

Sau này trảo đồ, ấn phím bàn thượng “PrtSc2 SysRq” kiện liền có thể trảo đồ, lại thông qua Q hoặc mặt khác vật dẫn bảo tồn lên chính là một cái jpg ảnh chụp hồ sơ.

B1 đưa vào

=IF(MOD(ROW(),5)=1,OFFSET($A1,COLUMN(A:A),), "" )

Hồi xe cũng hướng hữu bỏ thêm vào đến E1, lại cùng nhau xuống phía dưới bỏ thêm vào.

Ngươi hảo, lâu chủ muốn công năng, có thể sử dụng VBA trình tự thực hiện.

( một ) VBA trình tự số hiệu như sau:( số hiệu vận hành phía trước thỉnh làm tốt số liệu sao lưu, để tránh mất đi )

Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets( "Sheet1" ) ' định nghĩa công tác biểu Sheet1

For i1 = 1 To 1000 ' từ đệ 1 đi được tới 1000 hành
If mysheet1.Cells(i1, 1) "" Then ' nếu đơn nguyên cách không phải chỗ trống, tắc
str = Mid(mysheet1.Cells(i1, 1), 1, 1) ' lấy ra cái thứ nhất tự phù
If IsNumeric(str) = True Then ' nếu lấy ra tự phù là con số, tắc
i2 = i1
i3 = 1
Else
i3 = i3 + 1
mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1) ' đem ABCD hạng viết nhập đựng con số kia một hàng
End If
End If
Next

End Sub

( nhị ) trình tự vận hành trước sau kết quả như sau đồ sở kỳ, vọng vui lòng nhận cho.

Như trên đồ đưa vào cũng hạ kéo.

Như đồ tiến hành tra tìm thay đổi, toàn bộ thay đổi.

Hoàn thành.