Excel VBA質問箱 IV

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

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


34208 / 76738 ←次へ | 前へ→

【47741】Re:連番を振りたい
回答  Masako  - 07/3/21(水) 13:21 -

引用なし
パスワード
   ▼marron2 さん:
こんな感じで出来ると思います。試して・・・みてください
>
>  A列   B列
> 項目名 項目名
>  AC8   1
>
>  BB4   2
>  SA6   3

A列になんらかがあれば連番をB列に入れると判断しますと
ない場合は入れない(連番を加算させないようにする)

Sub test()
Dim i As Integer
k = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  If Cells(i, 1) <> "" Then
    Cells(i, 1).Offset(, 1) = k
  End If
  If Cells(i, 1) = "" Then
    k = k - 1
  End If
k = k + 1
Next i
End Sub

0 hits

【47740】連番を振りたい marron2 07/3/21(水) 12:58 質問
【47741】Re:連番を振りたい Masako 07/3/21(水) 13:21 回答
【47743】Re:連番を振りたい Kein 07/3/21(水) 14:13 回答
【47747】Re:連番を振りたい Kein 07/3/21(水) 14:40 発言
【47745】Re:連番を振りたい marron2 07/3/21(水) 14:35 お礼

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