[發問] 如何自動換列

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-10-26 15:24 | 只看該作者

請教各位前輩
(1)我已在Sheet1 設計一個UserForm，在TextBox輸入值並按下CommandButton會將該值
存在Sheet2的A2 。
(2)我該利用何種語法才能在下次重複(1)步驟時，該值會存於A3。

麻請各位前輩解惑，謝謝。

2^#

發表於 2015-10-28 18:34 | 只看該作者

Dim xEnd As Range
Set xEnd = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)(2)
xEnd = TextBox1.Value

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。