Xin hướng dẫn cách chèn cột(Cách cột chèn 1 cột) (1 người xem)

[kebuidoi]

Mình muốn chèn cột cách cột vào file excel như thế nào. Mình muốn chèn hàng loạt. Các bạn xem phai đính kèm và hướng dẫn giúp. Chân Thành cám ơn

 

[ndu96081631]

Thử code này xem:

Sub Chencot()
  Application.ScreenUpdating = False
  For i = [IV1].End(xlToLeft).Column To 2 Step -1
    Cells(1, i).EntireColumn.Insert
  Next
  Application.ScreenUpdating = True
End Sub

 

[kebuidoi]

Thử code này xem:

Sub Chencot()
  Application.ScreenUpdating = False
  For i = [IV1].End(xlToLeft).Column To 2 Step -1
    Cells(1, i).EntireColumn.Insert
  Next
  Application.ScreenUpdating = True
End Sub

Bạn có thể hướng dẫn cụ thể được không. Mình mới tệp tẹ với EXCEL.

 

[ndu96081631]

1> Mở file lên, bấm Alt + F11
2> Trong cửa sổ VBE, vào menu Insert, chọn Module
3> Dán nguyên đoạn code tôi ghi ở trên vào khung bên phải của cửa số VBE
4> Đóng cửa sổ VBE lại
5> Bấm Alt + F8, chọn chử Chencot và bấm lệnh Run

 

[kebuidoi]

1> Mở file lên, bấm Alt + F11
2> Trong cửa sổ VBE, vào menu Insert, chọn Module
3> Dán nguyên đoạn code tôi ghi ở trên vào khung bên phải của cửa số VBE
4> Đóng cửa sổ VBE lại
5> Bấm Alt + F8, chọn chử Chencot và bấm lệnh Run

Nếu mình làm ở phai khác thì mình cũng phải làm như vậy à.(Làm lại từ đâu luôn có phải không, các bước như bạn hướng dẫn đó).
Chân thành cám ơn bạn, có cách nào làm ở file khác mà ko phải lập lại các bước 1 đến 4 không.

 

[ndu96081631]

Nếu mình làm ở phai khác thì mình cũng phải làm như vậy à.(Làm lại từ đâu luôn có phải không, các bước như bạn hướng dẫn đó).
Chân thành cám ơn bạn, có cách nào làm ở file khác mà ko phải lập lại các bước 1 đến 4 không.

1> Với những file khác bạn cũng làm từng bước như đã nói ở trên... Chú ý 1 chổ quan trọng:

For i = [IV1].End(xlToLeft).Column To 2 Step -1
Cells(1, i).EntireColumn.Insert

-Số 1 là đang nói đến dòng 1
-Số 2 là đang nói đến chỉ số cột đầu tiên (là cột B)
-Nếu dử liệu của bạn có tiêu đề nằm ở dòng khác, cột khác thì sửa lại cho phù hợp​

2> Cố gắng hiểu được từng đoạn code nói gì để còn tùy biến thêm trong các trường hợp đặc biệt (như hiểu For là cái gì, End là cái gì... xlToLeft là cái chi chi)
3> Cố gắng làm cho quen tay hơn là nghĩ đến chuyện mang cái có sẳn về xài... Vì tự động hóa cao có khi làm cho trình độ của bạn thụt lùi thêm chứ chẳng ích gì

 

[hoangdanh282vn]

Mình muốn chèn cột cách cột vào file excel như thế nào. Mình muốn chèn hàng loạt. Các bạn xem phai đính kèm và hướng dẫn giúp. Chân Thành cám ơn

Code chèn và xóa dòng trống:

Sub InsertColumn()
Dim i As Long
Application.ScreenUpdating = False
For i = [IV5].End(xlToLeft).Column To 2 Step -1
    If Cells(5, i) <> "" And Cells(5, i - 1) <> "" Then
    Cells(1, i).Resize(65536, 1).Insert shift:=xlToRight
    End If
Next
Application.ScreenUpdating = True
End Sub


Sub UndoInsertColumn()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To [IV5].End(xlToLeft).Column
    If Cells(5, i) = "" Then
    Cells(1, i).EntireColumn.Delete shift:=xlToRight
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[kebuidoi]

Mình hiểu rồi cám ơn. Nhưng nếu muốn chèn cột có dữ liệu vào thì làm sao. Thí dụ cột có dữ liệu là A1 vào các cột tiếp theo. thi thây hàm nào và ở vị trí nào vậy. Thân ái