Tổng quan về phương thức SpecialCells() trong VBA

[SA_DQ]

Tổng quan về phương thức SpecialCells trong VBA

Các bạn xem trong file đính kèm & cho ý kiến góp ý phản hồi!
Xin trân trọng cảm ơn những đóng góp của các bạn!
:lol:

 

[lexthien]

Hi!
Cho em hỏi 1 chút.
Em muốn Paste special / values / transpose 1 đoạn đang chọn sang vị trí khác bằng VBA có được không?. Cho xin code nhen?.

Thân

 

[QDuc]

Theo mình nghỉ là được, bạn nhờ bộ thu xem sao?!

Em muốn Paste special / values / transpose 1 đoạn đang chọn sang vị trí khác bằng VBA có được không?. Cho xin code nhen?. Thân

Option Explicit
Sub PasteTranspose()
Range("A3:B10").Copy
Sheets("Input").Select: Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
End Sub

:bigok:

 

[lexthien]

Hi !

Bạn hiểu lầm ý mình rùi. Mình muốn copy vùng đang chọn ( người dùng muốn copy dòng nào cột nào thì chọn vùng đó) chứ không phải định sẳn vùng copy như trong code của bạn (Range("A3:B10").Copy).


Thân.

 

[HongViet]

Hi ! Mình muốn copy vùng đang chọn ( người dùng muốn copy dòng nào cột nào thì chọn vùng đó) chứ không phải định sẳn vùng copy như trong code của bạn (Range("A3:B10").Copy).Thân.

Tùy chọn vùng Copy & vùng đem đến đây:

Option Explicit
Sub TranposeCopy()
Dim sRng As Range, DesRng As Range

Set sRng = Application.InputBox("HAY CHON VUNG CAN COPY", "TranposeCopy", Type:=8)
Set DesRng = Application.InputBox("HAY CHON VUNG CHUA DU LIEU:", "Destination", Type:=8)
If Not sRng Is Nothing And Not DesRng Is Nothing Then
sRng.Copy
DesRng.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
Application.CutCopyMode = False
End If
End Sub

:byebye::lol:

 

[lexthien]

To HongViet

Cảm ơn nhen. Nhưng ý mình muốn là sau khi chọn vùng copy xong rồi dùng phím tắt giống ctrl+v để paste dữ liệu dưới dạng "Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True".
Code của bạn sẽ thuận tiện cho dữ liệu lớn chứ dữ liệu nhỏ chọn ctrl+c xong ctrl+v cho lẹ chứ phải chọn thì hơi lâu.
Bạn cho thêm chọn lựa này được không vì khi paste sang file khác hoặc sheet khác thì báo lỗi DesRng.Select.

TC.