Excel VBA質問箱 IV

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

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


39588 / 76732 ←次へ | 前へ→

【42254】Re:数行の文字を連結したい
お礼  TAKA  - 06/9/4(月) 23:38 -

引用なし
パスワード
   ▼ichinose さん:たびたびすいません。

>>試してみたら、myarray・・・の行で
>>「型が一致しません」とのエラーメッセージが出てしまいました。
>myarrayは
>>>   myarray = Application.Transpose(rng.Value)
>>>   Range("a10").Value = Join(myarray, "")
>
>のどちらの行ですか?

 myarray = Application.Transpose(rng.Value) この行です。


>>>Sub test()
>>>  Dim rng As Range
>>>  Dim myarray As Variant
>   Set rng = Range("a10:A13")
>>>  If rng.Row >= 10 And rng.Count > 1 Then
>>>   myarray = Application.Transpose(rng.Value)
>>>   Range("a10").Value = Join(myarray, "")
>>>   End If
>>>End Sub
>
>これではどうなりますか?

Set rng = Range("a10:A13") に変更してみましたが結果は同じでした。

親切に教えていただいていながら何なんですが、ハチさんから教えていただいた
方法で何とかなりそうなので、そちらの方で進めたいと思います。
ichinoseさんの言わんとすることを直ぐに理解できるようになりたいと思っています。
ありがとうございました。
0 hits

【42237】数行の文字を連結したい TAKA 06/9/4(月) 19:51 質問
【42239】Re:数行の文字を連結したい ハチ 06/9/4(月) 20:17 発言
【42240】Re:数行の文字を連結したい ichinose 06/9/4(月) 20:31 発言
【42246】Re:数行の文字を連結したい TAKA 06/9/4(月) 22:22 回答
【42250】Re:数行の文字を連結したい ichinose 06/9/4(月) 22:41 発言
【42254】Re:数行の文字を連結したい TAKA 06/9/4(月) 23:38 お礼
【42262】Re:数行の文字を連結したい Kein 06/9/5(火) 10:28 発言
【42249】Re:数行の文字を連結したい TAKA 06/9/4(月) 22:35 お礼

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