Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33075 / 76734

←次へ　｜　前へ→


	【48885】Re:隣の列の個数分オートフィルしたい

Jaka - 07/5/14(月) 13:14 -


	引用なし

	パスワード

>これだと、前に教えていただいた「.Value = .Value」というのが無いのですが、これは必要なんでしょうか？
.Value = .Value は、
エクセル関数をいれて、それをコピー値だけペースト見たいな事をしているだけです。（ちょっと違うけど）
私なら、連番ならにゃこさんがかかれた方法を使います。
これの方が断然速いです。
Selection.AutoFill Destination

>Sub てす()
>　　Range("A2").Select
　　　　　　↑Ａ１の間違いじゃないですか？
>　　ActiveCell.FormulaR1C1 = "a1"

ちょっと、まとめると
With Range("a1")
　 .Value = "a1"
　 .AutoFill Destination:=Range("A2", Range("IV2").End(xlToLeft)).Offset(-1, 0), _
　　　　Type:=xlFillDefault
End With

2 hits

▼

【48851】隣の列の個数分オートフィルしたい にゃこ 07/5/11(金) 17:38