EXCEL 找空白的最後一列

2015-07-17 6:14 am
程式碼如下:
Private Sub CommandButton1_Click()

yU = [A1].End(xlDown).Row
MsgBox yU

Sheet1.Cells(yU + 1, 1).Value = "0000" & yU
Sheet1.Cells(yU + 1, 2).Value = TextBox1.Text '(假設輸入為:可可)

End Sub

CommandButton1為新增鍵
在sheet1 A1:編號 B1:姓名
執行時, 為什麼我的yU值是65536
我期待是yU值是1, 在按下新增後sheet1的A2:00001 B2:可可
再新增一筆後 sheet1的A2:00002 B2:呆呆 (TextBox1二次輸入為呆呆)
請問錯在哪裡????

回答 (5)

2015-07-21 1:05 am
✔ 最佳答案
這樣子也可:
yU = Application.CountA(Range("A:A"))
供參考

2015-07-18 15:34:25 補充:
Sub test()
For i = 1 To Cells(1, 256).End(xlToLeft).Column
yU = Application.CountA(Columns(i))
Next i
End Sub
這樣子應該就可以了

2015-07-20 17:05:38 補充:
Sub test()
For i = 1 To Cells(1, 256).End(xlToLeft).Column
yU = Application.CountA(Columns(i))
Next i
End Sub
2015-07-18 10:32 pm
Set FR = [a1]
If FR <> "" Then Set FR = [a:a].Find("")

2015-07-18 14:36:31 補充:
一般遞增填入資料,應由下往上找最後一個空白格:
Set xE = [A65536].End(xlUp)
If xE <> "" Then Set xE = xE(2)
2015-07-18 4:53 pm
To:cascade大
1.請問如果要找每列"各自的"第一個空白儲存格, (由左往右找)要如何改寫
2.如果要找每欄"各自的"第一個空白儲存格, (由上往下找)要如何改寫
謝謝

2015-07-18 08:54:32 補充:
另外也謝謝二位大的意見, 不過我需要"由上往下找"~~

2015-07-19 08:15:49 補充:
謝謝, 請cascade 移駕至回答區以便答贈.

2015-07-19 08:16:54 補充:
也謝謝准大熱心的意見,
2015-07-18 3:13 am
Private Sub CommandButton1_Click()
x = [A65536].End(xlUp).Row
Cells(x + 1, 1) = Format(x, "0000")
Cells(x + 1, 2) = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End Sub
先把A欄設定為文字格式
2015-07-17 4:32 pm
yU = [A65536].End(xlUp).Row
參考


收錄日期: 2021-04-23 23:53:44
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20150716000015KK07504

檢視 Wayback Machine 備份