Ｐａｇｅ 445 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼結合セルに連番を・・・ MARU 02/12/10(火) 22:58 ┗Re:結合セルに連番を・・・ ichinose 02/12/11(水) 0:07 ┗Re:結合セルに連番を・・・ MARU 02/12/11(水) 7:18 ─────────────────────────────────────── ■題名 ： 結合セルに連番を・・・ ■名前 ： MARU <maru@cf-tokyo-vf.jp> ■日付 ： 02/12/10(火) 22:58 -------------------------------------------------------------------------
| 初めての投稿です。VBA初心者です。 例えばSheet1のA1:D10に表があるとします。 A列に連番をつけたいのですが、結合セルが あるためにうまく連番をつけられません。 結合セルは2行だったり3行だったり不規則 に結合されています。 どなたかわかる方、ご指導よろしくおねがいします。 |
| ▼MARU さん： こんばんは。 >初めての投稿です。VBA初心者です。 >例えばSheet1のA1:D10に表があるとします。 >A列に連番をつけたいのですが、結合セルが >あるためにうまく連番をつけられません。 >結合セルは2行だったり3行だったり不規則 >に結合されています。 >どなたかわかる方、ご指導よろしくおねがいします。 全部見ていく方法しか思いつきませんでした。 '================================================== Sub test() Dim idx As Long Dim 連番 As Long With Range("a1:a10") idx = 1 連番 = 100 Do While idx <= .Rows.Count If .Cells(idx).MergeCells = True Then .Cells(idx).MergeArea.Cells(1, 1).Value = 連番 idx = idx + .Cells(idx).MergeArea.Rows.Count Else .Cells(idx).Value = 連番 idx = idx + 1 End If 連番 = 連番 + 1 Loop End With End Sub |
| ▼ichinose さん： >▼MARU さん： >こんばんは。 >全部見ていく方法しか思いつきませんでした。 >'================================================== >Sub test() >Dim idx As Long >Dim 連番 As Long >With Range("a1:a10") > idx = 1 > 連番 = 100 > Do While idx <= .Rows.Count > If .Cells(idx).MergeCells = True Then > .Cells(idx).MergeArea.Cells(1, 1).Value = 連番 > idx = idx + .Cells(idx).MergeArea.Rows.Count > Else > .Cells(idx).Value = 連番 > idx = idx + 1 > End If > 連番 = 連番 + 1 > Loop > End With >End Sub ichinose さんおはようございます。 完璧です。悩みが解消され晴れやかな気分 になりました。 本当にありがとうございました。 |