Excel VBA質問箱 IV

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

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


6125 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   ▼シェバルブラン さん:

A 列  又 出力はD列とします。適宜変更して下さい。
>番号
>A143
>A144
>A145
>A146〜A147
>A149
>A153
>A156〜A159
>A160
>A161〜A163
>A165

Sub TESTa()
  Dim v  As Variant
  Dim i  As Long
  Dim j  As Long
  Dim k  As Long
  Dim d1() As Variant
  Dim a  As Variant
  Dim n1 As Long
  Dim n2 As Long
  
  With Worksheets("Sheet1").Range("A1").CurrentRegion
    v = .Offset(1).Resize(.Rows.Count - 1).Value
  End With
  For i = 1 To UBound(v)
    a = Split(v(i, 1), "〜")
    If UBound(a) = 0 Then
      ReDim Preserve d1(j)
      d1(j) = v(i, 1)
      j = j + 1
    Else
      n1 = StrReverse(Val(StrReverse(a(0))))
      n2 = StrReverse(Val(StrReverse(a(1))))
      k = j
      For j = j To j + n2 - n1
        ReDim Preserve d1(j)
        d1(j) = Left(a(1), Len(a(1)) - Len(CStr(n2))) & n1
        n1 = n1 + 1
      Next
    End If
  Next

' 出力先 変更して
  With Worksheets("Sheet1")
    .Columns(4).ClearContents
    .Range("D1").Value = .Range("A1").Value
    .Range("D2").Resize(j).Value = Application.Transpose(d1)
  End With
End Sub
1 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 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free