Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2045 / 13645 ツリー ←次へ | 前へ→

【70309】データが存在する最終行までオートフィルでコピーしたい KOKO 11/10/31(月) 21:44 質問[未読]
【70310】Re:データが存在する最終行までオートフィ... UO3 11/10/31(月) 21:55 回答[未読]
【70312】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 9:37 お礼[未読]
【70311】Re:データが存在する最終行までオートフィ... kanabun 11/10/31(月) 23:20 発言[未読]
【70313】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 9:40 回答[未読]
【70314】Re:データが存在する最終行までオートフィ... kanabun 11/11/1(火) 11:41 発言[未読]
【70315】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 13:59 お礼[未読]

【70309】データが存在する最終行までオートフィル...
質問  KOKO  - 11/10/31(月) 21:44 -

引用なし
パスワード
   VBA初心者です。よろしくお願い致します。

B5に入っている関数=TEXT(A5,"yymm")を
A列のデータが入っている最終行までオートフィルで
コピーするVBAはどのように記述するのでしょうか?

よろしくお願い致します。

【70310】Re:データが存在する最終行までオートフ...
回答  UO3  - 11/10/31(月) 21:55 -

引用なし
パスワード
   ▼KOKO さん:

こんなことでしょうか?

Sub Sample()
  Range("A5", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
                            Range("B5").Formula
End Sub

【70311】Re:データが存在する最終行までオートフ...
発言  kanabun  - 11/10/31(月) 23:20 -

引用なし
パスワード
   ▼KOKO さん:
>B5に入っている関数=TEXT(A5,"yymm")を
>A列のデータが入っている最終行までオートフィルで
>コピーするVBAはどのように記述するのでしょうか?

手動なら、[B5]セルの(右下のフィルハンドルのダブルクリック)
ですけど?
VBAにする目的はなんでしょう?

【70312】Re:データが存在する最終行までオートフ...
お礼  KOKO  - 11/11/1(火) 9:37 -

引用なし
パスワード
   ▼UO3 さん:

ご回答ありがとうございました!
やりたかったことができました。

ありがとうございます。


>▼KOKO さん:
>
>こんなことでしょうか?
>
>Sub Sample()
>  Range("A5", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
>                            Range("B5").Formula
>End Sub

【70313】Re:データが存在する最終行までオートフ...
回答  KOKO  - 11/11/1(火) 9:40 -

引用なし
パスワード
   ▼kanabun さん:

ある作業をすべて自動化しているのですが
そのなかの一作業となります。
ちょっと質問の情報が少なかったです。すみません。


>▼KOKO さん:
>>B5に入っている関数=TEXT(A5,"yymm")を
>>A列のデータが入っている最終行までオートフィルで
>>コピーするVBAはどのように記述するのでしょうか?
>
>手動なら、[B5]セルの(右下のフィルハンドルのダブルクリック)
>ですけど?
>VBAにする目的はなんでしょう?

【70314】Re:データが存在する最終行までオートフ...
発言  kanabun  - 11/11/1(火) 11:41 -

引用なし
パスワード
   ▼KOKO さん:こんにちは〜

>▼kanabun さん:
>
>ある作業をすべて自動化しているのですが
>そのなかの一作業となります。
>ちょっと質問の情報が少なかったです。すみません。

「すべて自動化」ですか?
なら、[B5]セルに数式を埋め込む処理もマクロで、ってことですよね。

つまり、
 Range("A5", Cells(Rows.Count, 1).End(xlUp)) _
  .Offset(, 1).Formula = "=TEXT(A5,""yymm"")"

こうですか?(^^

【70315】Re:データが存在する最終行までオートフ...
お礼  KOKO  - 11/11/1(火) 13:59 -

引用なし
パスワード
   ▼kanabun さん:

ご回答ありがとうございます!
実現できました。

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

>▼KOKO さん:こんにちは〜
>
>>▼kanabun さん:
>>
>>ある作業をすべて自動化しているのですが
>>そのなかの一作業となります。
>>ちょっと質問の情報が少なかったです。すみません。
>
>「すべて自動化」ですか?
>なら、[B5]セルに数式を埋め込む処理もマクロで、ってことですよね。
>
>つまり、
> Range("A5", Cells(Rows.Count, 1).End(xlUp)) _
>  .Offset(, 1).Formula = "=TEXT(A5,""yymm"")"
>
>こうですか?(^^

2045 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free