假如sheet1 [A1]=8
我點的是sheet1 [A1]
如何讓 [A2]=8 ([A1]的值)
Sub abc123()
Dim rng
Set rng = Application.InputBox("輸入選擇區域", Type:=8) '可在各工作表中移動,選擇儲存挌
a = rng.Address
b = rng.Parent.Name ' 工作表名稱
c = rng.Parent.Parent.Name ' workbook
abc = "Workbooks(""" & c & ".xls"")." & "Sheets(""" & b & """).range(""" & a & """).value"
[a2] = abc ' 這句如何改 ??
End Sub |
發表於 2018-2-4 20:15
| 
