|
>PERSONAL.xls上のコードとして貼り付け利用する考えでいます。(セルを選択し、Ctrl+CしてVBAのソースコードにCtrl+V)
これでいいなら数式を
="data(" & ROW() & ")=""" & SUBSTITUTE(A1,CHAR(10),"""&vbLf &""") & """"
で良いのでは。
でも
>セルを選択し、Ctrl+CしてVBAのソースコードにCtrl+V
するくらいなら
Sub test1()
Selection.Copy
Workbooks("personal.xls").Sheets("sheet1").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
でWorkbooks("personal.xls").Sheets("sheet1")を読み取った方が良いような気がします。
Sub test2()
Dim data
With Workbooks("personal.xls").Sheets("sheet1")
data = Application.Transpose(.Range("A1", .Range("A1").End(xlDown)))
End With
MsgBox data(3)
End Sub
|
|