Excel VBA質問箱 IV

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

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


33076 / 76734 ←次へ | 前へ→

【48884】Re:隣の列の個数分オートフィルしたい
質問  にゃこ  - 07/5/14(月) 12:49 -

引用なし
パスワード
   続けての質問ごめんなさい。

教えていただいた内容をもとに、横向きで試してみたのですが、とりあえず思うように動いたのですが、正しいのかどうか不安でして...
見ていただいてよろしいでしょうか。

A2から?2までの行にデータが入力されている時、A1から?1まで、"a1"から連番を記入したい、という内容です。

Sub てす()
  
  Range("A2").Select
  ActiveCell.FormulaR1C1 = "a1"
  Selection.AutoFill Destination:=Range("A2",Range("IV2").End(xlToLeft)).Offset(-1, 0), _
  Type:=xlFillDefault

End Sub

これだと、前に教えていただいた「.Value = .Value」というのが無いのですが、これは必要なんでしょうか?

どうかよろしくお願いします。
3 hits

【48851】隣の列の個数分オートフィルしたい にゃこ 07/5/11(金) 17:38 質問
【48854】Re:隣の列の個数分オートフィルしたい ウッシ 07/5/11(金) 18:38 発言
【48856】Re:隣の列の個数分オートフィルしたい Kein 07/5/11(金) 19:21 回答
【48881】Re:隣の列の個数分オートフィルしたい にゃこ 07/5/14(月) 10:18 お礼
【48884】Re:隣の列の個数分オートフィルしたい にゃこ 07/5/14(月) 12:49 質問
【48885】Re:隣の列の個数分オートフィルしたい Jaka 07/5/14(月) 13:14 発言
【48888】Re:隣の列の個数分オートフィルしたい ウッシ 07/5/14(月) 13:59 発言
【48889】Re:隣の列の個数分オートフィルしたい Kein 07/5/14(月) 14:19 発言
【48895】グラフに・・・ にゃこ 07/5/14(月) 15:59 質問
【48896】Re:グラフに・・・ ウッシ 07/5/14(月) 16:06 発言
【48898】Re:グラフに・・・ にゃこ 07/5/14(月) 17:46 お礼

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