excel vba question

以下是vba coding:只要copy and paste便可:

Sub Table()
Dim myRange As Range
Set myRange = Range("A1:c" & Cells(Rows.Count, 1).End(xlUp).Row)
myRange.Name = "table"
End Sub

如果你唔係在A列做對應資料

你可以試下改變table的公式

如果你D資料係連續 無空行 可以輸入公式
table
參照到:
=EVALUATE("Sheet1!$A$1:$C$"&COUNTA(Sheet1!$A:$A))

如果你D資料係有空行 可以輸入公式
table
參照到:
=EVALUATE("Sheet1!$A$1:$C$"&MATCH(2,1/($A$1:$A$10000<>""),1))

預覽有問題
=EVALUATE( " Sheet1!$A$1:$C$ " & COUNTA(Sheet1!$A:$A))

=EVALUATE( " Sheet1!$A$1:$C$ " & MATCH(2,1/ ($A$1:$A$10000 < > "" ),1))

除非用BarCode。
第一次輸入資料是要用人手的, 當然複製亦可以, 但不能用VBA入資料。
當然可先度身定做 dialog, userform ..等功能, 再配合不同的工具列, 協助更快速及準確地輸入資料, 但這些辦法是比較高階用家才能處理, 在這處的有限篇幅不易講得明。

入完資料後, 可用VBA 將資料整理, 放在不同的Cells, Worksheet或Workbook.

如用公式, 可用 a1:c3建立名稱

如用VBA, 最好盡量用1 Column (如 a1:a100) 或 1 cell (如 a1)建立名稱
你題目說, 唔識寫! 你是有些問題唔識寫, 還是完全唔識寫呀!
仲有你想寫乜野又冇講, 我點教你呀。

還有, 盡量不要將巨集連結在 Short cut key, 應盡量連結在 按鈕/方塊/或物件上

2007-01-19 23:35:07 補充：
VBA:Sub Add_Row()N = "table"a = "=" & Range(N).Worksheet.Name & "!"b = "R" & Range(N)(1).Rowc = "C" & Range(N)(1).Columnd = ":R" & Range(N)(Range(N).Cells.Count).Row + 1e = "C" & Range(N)(Range(N).Cells.Count).Column

2007-01-19 23:46:38 補充：
ActiveWorkbook.names.Add Name:=N, RefersToR1C1:=a & b & c & d & eRange(N).SelectEnd Sub執行一次, table 便會多1row.其實可以用 插入列 的方法, 用VBA來解決這種問題, 好似 大才小用分號 ; 不要理會, " 是 雙引號 "

2007-01-21 21:32:40 補充：
上面個VBA太累贅, 現修改如:Sub Add_row() Dim X As Range Set X = Range(“table”) Range(X(1), X(X.Cells.Count).Offset(1, 0)).Name = “table” End Sub