phamngocque
Thành viên mới
- Tham gia
- 19/2/14
- Bài viết
- 5
- Được thích
- 0
Up lên, mong nhận đuợc sự giúp đỡ của mọi người
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
[A:A].Copy [Z:Z]
[Z:Z] = [Z:Z].Value
Application.CutCopyMode = False
[Z:Z].Select
Selection.UnMerge
[3:2778].EntireRow.AutoFit
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Range("B1").Select
Application.ScreenUpdating = True
End Sub