Welcome Guest [Log In] [Register]
Add Reply
|excel| Code XuỐng DÒng Trong Excel
Topic Started: Friday Oct 13 2017, 10:28 PM (663 Views)
xnk13q
Member Avatar
Admin
[]
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:
Attachments: sample.xlsm (16.33 KB)
Attachments: Theo_doi_ho_so.xls (40.5 KB)
Edited by xnk13q, Friday Oct 13 2017, 10:29 PM.
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · GÓC PHẦN MỀM · Next Topic »
Add Reply






RulesSECRET
[audioplayer]Link Audio[/audioplayer]
Code [tooltip=Title]Content[/tooltip]

E MAIL
hxanh1879@gmail.com

Contact on Skype
thaoho090791
Im lặng và mỉm cười là 2 vũ khí lợi hại. Mỉm cười là cách để giải quyết nhiều vấn đề , im lặng là cách để tránh những vấn đề rắc rối xảy ra.

Cuộc sống không phải luôn luôn hoàn hảo nhưng nó là kết quả của những gì bạn tạo ra. Vì thế hãy làm nó có giá trị, làm sao cho nó đáng nhớ và đừng bao giờ để ai đó đánh cắp hạnh phúc của bạn..