Excel VBA質問箱 IV

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

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


41364 / 76735 ←次へ | 前へ→

【40451】Re:ブック内のシートに連番をふりたい。
回答  kobasan  - 06/7/13(木) 23:47 -

引用なし
パスワード
   sacchi  今晩は。

>Sub AutoFill_1()
>
>Worksheets("Sheet1").Select
>
>Range("B1").Value = 1
>
>Range("B1").AutoFill Destination:=Range("B1:B7"), Type:=xlFillSeries
>
>End Sub

Sub Macro()
Dim w As Worksheet
For Each w In ThisWorkbook.Worksheets
  With w
    .Range("B1").Value = 1
    .Range("B2").Value = 2
    .Range("B1:B2").AutoFill Destination:=.Range("B1:B7"), Type:=xlFillDefault
  End With
Next
End Sub

これでどうですか。
0 hits

【40448】ブック内のシートに連番をふりたい。 sacchi 06/7/13(木) 22:04 質問
【40451】Re:ブック内のシートに連番をふりたい。 kobasan 06/7/13(木) 23:47 回答
【40461】ほとんど遊びだけど...。 Jaka 06/7/14(金) 9:49 発言
【40571】Re:ブック内のシートに連番をふりたい。 sacchi 06/7/18(火) 12:35 お礼
【40575】Re:ブック内のシートに連番をふりたい。 Jaka 06/7/18(火) 13:30 発言

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