Excel VBA質問箱 IV

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

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


6125 / 76735 ←次へ | 前へ→

【76212】Re:番号を並べて表記したいのです。
発言  kanabun  - 14/10/16(木) 12:50 -

引用なし
パスワード
   元データが A列に書いてあって、
C列に出力するものとすると、
一例ですが、以下とか?

'---------------------------------------------------- 標準モジュール
Option Explicit

Sub Try1()
 Dim c As Range  '元データセル
 Dim r As Range  '出力先セル
 Dim i As Long, j As Long, k As Long
 Dim ss As String, s As String
 Dim v As Variant
 Const z = "〜"
 
  Set r = [C1]
  For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
    ss = c.Value
    If InStr(ss, z) = 0 Then
      k = k + 1
      r(k, 1).Value = ss
    Else
      v = Split(ss, z)
      s = Left$(v(0), 1)
      For j = Val(Mid$(v(0), 2)) To Val(Mid$(v(1), 2))
        k = k + 1
        r(k, 1).Value = s & j
      Next
    End If
  Next
  
End Sub

0 hits

【76209】番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 9:34 質問
【76210】Re:番号を並べて表記したいのです。 kanabun 14/10/16(木) 12:36 質問
【76211】Re:番号を並べて表記したいのです。 Yuki 14/10/16(木) 12:50 発言
【76214】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 13:47 お礼
【76215】Re:番号を並べて表記したいのです。 Yuki 14/10/16(木) 16:07 発言
【76217】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/17(金) 8:29 発言
【76218】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 11:12 発言
【76220】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 11:18 発言
【76222】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/17(金) 13:48 お礼
【76224】Re:番号を並べて表記したいのです。 Yuki 14/10/17(金) 16:37 発言
【76242】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/20(月) 8:32 お礼[未読]
【76212】Re:番号を並べて表記したいのです。 kanabun 14/10/16(木) 12:50 発言
【76213】Re:番号を並べて表記したいのです。 シェバルブラン 14/10/16(木) 13:04 お礼

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