Excel VBA質問箱 IV

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

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


8516 / 76732 ←次へ | 前へ→

【73786】Re:不特定多数の文字列連結
発言  UO3  - 13/2/14(木) 18:12 -

引用なし
パスワード
   ▼gg54 さん:

対象セルの文字列を連結するなら以下のようになります。
セル数が多くなく、またセルの文字列桁数も多くなければこれでも
問題はないかと。

転記元のセル数が不特定ですから

転記先.Value = 転記元1.Value & 転記元2.Value & 転記元3.Value & ・・・・

というコードは記述不可能だと言うことはご理解いただけますよね。

Sub Sample2()
  Dim fR As Range
  Dim tR As Range
  Dim c As Range
  Dim s As String
 
  On Error Resume Next
  Set fR = Application.InputBox("コピーしたいセルを選んでください(複数選択可)", Type:=8)
  On Error GoTo 0
 
  If fR Is Nothing Then Exit Sub
 
  On Error Resume Next
  Set tR = Application.InputBox("転記先セルを選んでください", Type:=8)
  On Error GoTo 0
 
  If tR Is Nothing Then Exit Sub

  For Each c In fR
    s = s & c.Value
  Next
 
  tR.Value = s
 
End Sub
351 hits

【73782】不特定多数の文字列連結 gg54 13/2/14(木) 12:13 質問
【73783】Re:不特定多数の文字列連結 UO3 13/2/14(木) 14:05 発言
【73784】Re:不特定多数の文字列連結 UO3 13/2/14(木) 14:18 発言
【73785】Re:不特定多数の文字列連結 gg54 13/2/14(木) 15:21 お礼
【73786】Re:不特定多数の文字列連結 UO3 13/2/14(木) 18:12 発言
【73802】Re:不特定多数の文字列連結 gg54 13/2/16(土) 10:43 お礼

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