| Code xuống dòng 1 theo ví dụ: Theo doi ho so |
|---|
Sub Ghi() Range("B1:B4").Copy Range("E65500").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=True Range("B1:B4").ClearContents End Sub
|
| Tuỳ biến thành của mình |
|---|
Sub Macro2() ' ' Macro2 Macro '
' Range("A1:A4").Select Selection.Copy Range("E65500").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=True Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "dá " Range("A1").Select End Sub |
- Attached to this post:
sample.xlsm (16.33 KB) Theo_doi_ho_so.xls (40.5 KB)
Edited by xnk13q, Friday Oct 13 2017, 10:29 PM.
|