Excel VBA質問箱 IV

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

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


14730 / 76738 ←次へ | 前へ→

【67497】Re:特定のセルに入っている文字を別々のセルに分けたい
お礼  [名前なし]  - 10/12/9(木) 14:46 -

引用なし
パスワード
   ご返信ありがとうございます。
VB以前に初歩的なところで引っかかっている事が解りました。
申し訳ありませんでした。

アドバイスを参考にVB作成して見ました。

SUB TEST()

Range("B4:H4").Select
  Selection.Copy
  ActiveWindow.SmallScroll Down:=39
  Range("B70").Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
  Application.CutCopyMode = False
  Selection.TextToColumns Destination:=Range("B70"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
    :="、", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
    TrailingMinusNumbers:=True
  Range("B70:F76").Select
  Selection.Copy
  ActiveWindow.SmallScroll Down:=-48
  Range("B4").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
  Range("B4").Select
End Sub

これだと目的のことが出来るようになりました。
ありがとうございました。
もう少し簡略化しながら試してみます。
0 hits

【67486】特定のセルに入っている文字を別々のセルに分けたい 初心者 10/12/9(木) 7:56 発言
【67489】Re:特定のセルに入っている文字を別々のセ... Jaka 10/12/9(木) 9:28 発言
【67497】Re:特定のセルに入っている文字を別々のセ... [名前なし] 10/12/9(木) 14:46 お礼

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