Excel VBA質問箱 IV

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

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


20634 / 76732 ←次へ | 前へ→

【61511】蛇足ですが・・・
発言  つん  - 09/5/14(木) 9:46 -

引用なし
パスワード
   ▼marimoooon さん
おはようございます^^

私も、abeboboさんのやり方でしたらええかな・・と思ってましたが、

>Sub 改行された文字列を1行ずつに分割()
>   
>  Dim A, B, C
>  A = Split(Range("A1"), Chr(10))     '改行したいセル
>  B = 0
>  For Each C In A
>  B = B + 1
>  Range("B1").Offset(B - 1, 0).Value = C  '分割した文字列を表示させるセル
>  Next
>
>End Sub

これでするなら・・・

Sub 改行された文字列を1行ずつに分割()
  
  Dim A As Variant
  Dim B As Long
  Dim C As String
  
  A = Split(Range("A1"), Chr(10))
  
  For B = 0 To UBound(A)
    If B = 2 Then
    '3行目
      Range("B1").Value = A(B)
    End If
  Next B

End Sub

こんな感じかな?

0 hits

【61480】改行された文字列の、指定行だけを取得 marimoooon 09/5/13(水) 8:41 質問
【61481】Re:改行された文字列の、指定行だけを取得 つん 09/5/13(水) 9:12 発言
【61508】Re:改行された文字列の、指定行だけを取得 marimoooon 09/5/14(木) 8:16 発言
【61511】蛇足ですが・・・ つん 09/5/14(木) 9:46 発言
【61536】Re:蛇足ですが・・・ marimoooon 09/5/15(金) 8:21 お礼
【61482】Re:改行された文字列の、指定行だけを取得 Abebobo 09/5/13(水) 9:24 発言
【61509】Re:改行された文字列の、指定行だけを取得 marimoooon 09/5/14(木) 8:26 お礼

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