任意の最終行番号を取得し他列でのコピーに利用したい

解決済

質問者：happy_rio123
質問日時：2011/08/17 10:12
回答数：5件

お世話になります。

任意の最終行番号を取得し、他の列でコピー時にその行番号までコピーしたいと考えております。

添付の例では、１２行目が最終行となっていますが、この１２行を得て「Ｅ列」に新たに行を追加し
「Ｄ列」の依頼年月の下二桁の月の部分だけを抽出し、任意の最終行（この場合１２行目）までコピーしたい。

４行目にブランク行があると３行目までしかコピーせず困っております。

賢者の皆様、お知恵をお貸し下さい。
よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： KURUMITO
回答日時：2011/08/17 17:16

回答Ｎｏ3です。

セルの表示を03のようにするのでしたら次のマクロにしてください。

Sub 式の貼り付け()

Dim RowPos As Integer
For RowPos = 2 To Cells(65536, 1).End(xlUp).Row
Cells(RowPos, 5).Value = Right(Cells(RowPos, 4).Value, Length:=2)
Cells.NumberFormatLocal = "00"
Next

End Sub

- 0
- 件

通報する

この回答へのお礼

KURUMITO様

早速の解答ありがとうございました。

No.4の方からご指摘がありましたように、「行・列・セル」の表現がごちゃごちゃになっておりました。
にもかわらず、意図をご理解いただきありがとうございました。
結果は、思い描いたいものが導き出されていて大変助かりました。

またとんちんかんな問い合わせをするかもしれませんが、機会がございましたら
お答えいただけると幸いです。

どうもありがとうございました。

通報する

お礼日時：2011/08/19 08:58

No.5

回答者： 374649
回答日時：2011/08/18 14:03

大変失礼な言い方かもしれませんが、行と列の概念を理解していないのでは。

＞１２行を得て「Ｅ列」に新たに行を追加
列にどのように行が追加できるのでしょうか。

＞４行目にブランク行があると
４行目にブランク列（セル）があると...ではないでしょうか。

難解な表現なので意図を正しく汲み取っているか判りませんが、要するに最終行の行番号を得て表に１行追加して対象行のＤ列とＥ列のセルに希望の処理をしたいということですか。

添付図から判断してＡ列はすべて埋まっているのでＡ列で最終行を求めるには

Dim 最終行 as string
最終行=Worksheets("***").Range("A1048576").End(xlUp).Address '最終行の１行下のセルの番地が取得できます。

最終行には”Ａ13”が入るのでRight関数で下２桁の数を取り出しlong（integerでは行数が多いので対応できないことがあります）に定義した変数に(13-1＝12)で代入すれば、仮に変数をNoとすればＤ列のセルは Cell(No,4)、Ｅ列のセルはCell(No,5)となります。

御希望の処理はご自分で工夫して見て下さい。

失礼な点、間違っていたら無視してください。

- 0
- 件

通報する

この回答へのお礼

374649　様

早速の回答ありがとうございます。
「行・列・セル」の表現がごちゃごちゃになっておりまして申し訳ございませんでした。
次回からは質問前に再度推敲いたします。

それにもかかわらずアドバイスいただき助かりました。

どうもありがとうございました。

通報する

お礼日時：2011/08/19 09:10

No.3

回答者： KURUMITO
回答日時：2011/08/17 17:01

シート見出しからシート名を右クリックして「コードの表示」を選択します。

表示な画面には例えば次のようなマクロを入力します。

Sub 式の貼り付け()

Dim RowPos As Integer
For RowPos = 2 To Cells(65536, 1).End(xlUp).Row　　’Ａ列での最終行を求めています。
Cells(RowPos, 5).Value = Right(Cells(RowPos, 4).Value, Length:=2)
Next

End Sub