VBA を使用して、別の Excel ファイルの最終行と最初の列にデータを書き込みます

vba は、別の xls ファイルの最初の列の最後の行にデータを書き込みます。 開いた A.XLSX で、C3 をコピーし、B の最初の列と最後の行のセルに貼り付けます。手順は次のとおりです。

サブマクロ1()

Range(＂C3＂).Select 'C3 を選択

Selection.Copy 'コピー

Windows("B.xlsx").Activate 'B.XLSX ワークブックを選択します

lastrow = Cells(Rows.Count, 1).End(3).Row '最初の列の最後の行を検索します

Cells(lastrow, 1).Select '最初の列の最後の行にあるセルを選択します

ActiveSheet.Paste '貼り付け

cells(1,1)=Cells(lastrow, 3) '現在の行の 3 列目の値を読み取り、それを現在の xls テーブルの最初のセルに書き込みます

Windows("A.xlsx").Activate 'XLSX に戻る

エンドサブ

Excel で VBA を使用して最初の行の最後の列を取得する方法

サブテスト004()

Dim CoLumn_Num を文字列として使用する

Dim Num As Long

Num = Range(＂IV1＂).End(xlToLeft).Column

数値 CoLumn_Num = Chr(64 数値)

ElseIf Num Mod 26 = 0 then

CoLumn_Num = Chr(63 Num \ 26) & Chr(90)

＃＃＃それ以外＃＃＃

CoLumn_Num = Chr(64 Num \ 26) & Chr(64 (Num) Mod 26)

終了の場合

MsgBox "最初の行と最後の列:" & CoLumn_Num & "列"

エンドサブ

テスト済みですので、ご自由にお使いください

以上がVBA を使用して、別の Excel ファイルの最終行と最初の列にデータを書き込みますの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。