1

この小さなプロジェクトを進めることができるように、件名に示されている情報をすべての Web で検索しました。シート 2 の最後の行を見つけて、各セルの内容をシート 1 の定義済みの場所または定義済みの変数に抽出できるようにしたいと考えています。

最後の行を見つけることができました

Cells(Application.Rows.Count, 1).End(xlUp).Select

定義されたセルの内容をテキストボックスに入力します

TextBox1.Value = Sheets("Sheet2").Range("a1").Value

上記の情報が、誰かが私を正しい方向に向けるのに十分であることを願っています. 誰でも提供できる支援に感謝します。

4

1 に答える 1

0

これがあなたが望むものかどうかわかりません：

Sub test()
Dim ws1 As Worksheet: Set ws1 = ActiveSheet
Dim ws2 As Worksheet: Set ws2 = Workbooks("abc.xlsm").Sheets("Test_ws")

For i = 1 To 12
ws1.Cells(3, i) = ws2.Cells(Application.Rows.Count, i).End(xlUp).Value
Next i
End Sub

コードを機能させるには、PS abc.xlsm を開く必要があります。Application.Workbooks.Open を使用して、フルパスでファイルを開くことができます。

于 2012-12-11T07:43:57.487 に答える