エクセルVBAについて質問です。次のページにあるようなマクロを作ってください。

http://hatena88.web.fc2.com/hatena/newpage1.shtml
なお、現在勉強中ですので、下記の質問の回答者4の方のような解説を付け加えていただいた方には追加ポイントのおまけを付けます。もしそれが必要なければマクロだけでも結構です。よろしくお願いします。
http://q.hatena.ne.jp/1158311664

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/10/29 17:16:09
  • 終了:2006/10/29 18:11:15

回答(1件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/10/29 17:39:53

ポイント60pt

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

'全行数分ループする

For a = 1 To 65536

'何もないセルになったら終了する

If Range("k" & a) = "" Then Exit For

'空白までを切り取りセットしなおす

Range("K" & a) = Left(Range("K" & a), InStr(Range("K" & a), " ") - 1)

Next a

End Sub


http://q.hatena.ne.jp/1162109767

id:taroemon

ご回答ありがとうございます。

完璧にできました。

2006/10/29 18:10:36

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません