Làm cách nào để chuyển cột thành hàng và chèn hàng mới để điền dữ liệu trong Excel?
Trong bài viết này, tôi giới thiệu mã VBA để chuyển cột thành hàng và chèn hàng mới để điền dữ liệu như hình ảnh chụp màn hình bên dưới, nếu bạn quan tâm đến thao tác này, vui lòng vào bên dưới để biết thêm chi tiết.
Chuyển đổi và chèn các hàng bằng VBA
Chuyển đổi và chèn các hàng bằng VBA
Không có cách trực tiếp nào để chuyển một dải ô và chèn các hàng để điền vào cùng một dữ liệu, nhưng ở đây tôi có thể giới thiệu một mã VBA để giải quyết nhanh nhiệm vụ này.
1. nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà dán mã VBA bên dưới vào cửa sổ Mô-đun. Xem ảnh chụp màn hình:
VBA: Chuyển đổi và chèn hàng.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. nhấn F5 để chạy mã, sau đó chọn phạm vi dữ liệu bạn muốn hoán vị và chèn các hàng vào hộp thoại bật lên. Xem ảnh chụp màn hình:
4. nhấp chuột OK. Và phạm vi đã chọn đã được chuyển đổi như hình minh họa bên dưới.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
