Gizport
1 回答
0
Share (facebook)
59
view
全般

Excelで列の最終入力行の一つ下にデータを格納する方法 A列に数百...

Excelで列の最終入力行の一つ下にデータを格納する方法 A列に数百行のデータがあります。(A3~A500くらいまで)
以後データは下に増えていくのですが、いちいち下までカーソルを
移動させるのが面倒です(ショートカットキーで行くことはできますが)。

たとえばセルA1にデータを入力して、実行するとそのデータを
A列データ最終入力行の一つ下に格納してくれるようなVBAを
作りたいのですが…
まだ勉強中の為記述の内容がわかりません。
なお、A列に途中空白行などは存在しません。
よろしくお願いいたします。
Yahoo!知恵袋 4920日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
はじめたばかりみたいなので

こんにちは。

Range("A1").Copy ’A1をコピー
Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
'A1000(ここはおそらくこれ以上登録しないだろうと思われる行数で良いと思います。1000は任意で変更して下さい)
'A1000から登録済み最終行まで行って、1段下げたところ(offset(1,0))に値のみ貼付け

Application.CutCopyMode = False 'コピー状態を解除

の3行マクロです。
------------------------------------
Range("A1").ClearContents
を最後に加えると、A1が空になります。
Yahoo!知恵袋 4920日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
74
Views
質問者が納得ドライバはインストールしましたか? 基本的な初期設定されてますか? パソコンが何かにもよりますしね。
4619日前view74
全般
62
Views
質問者が納得B2に以下のように入力して、B22までコピーして下さい。 =INDEX(Sheet1!$A$101:$A$150,INT(RAND()*50)+1) 表示させたい範囲を変更する場合は Sheet1!$A$101:$A$150 の"101"と"150"の部分をそれぞれ変更。同時に、RAND()*50 の"50"を単語の数(例では101~150までの50単語)に合わせて修正し、その修正した関数を再度B22までコピーして下さい。
4659日前view62
全般
68
Views
質問者が納得ICONIA TAB の W ならタブレットPC ですが、 Aシリーズはタブレット端末ってヤツですね。 >ノートPCと同じくネットが見れると考えてよいのでしょうか? むりです。 パソコンではなく、携帯電話の親戚です。 補足 3Gは積んでないので、勝手に通信はしません。 無線ランは持ってますよね? 無いと、インターネットとかできませんけど。
4668日前view68
全般
81
Views
質問者が納得【無線LAN Q&A情報】を参考にして下さい。 http://buffalo.jp/qa/wireless/index-airstation-01.html バッファロー、アンドロイド端末をワンタッチでWi-Fi接続できる「AOSS for Android」の提供を開始 AOSS for Androidは、バッファロー独自の無線LAN簡単設定システムである。 「AOSS」をアンドロイド端末からでも実行できるようにするアプリで、バッファロー製 無線LANルーターとのWi-Fi接続をボタンひとつで行う...
4708日前view81
全般
108
Views
質問者が納得IS03で(PdaNet使って)USBテザリング出来るのはPCが対象。WiFiテザリング使って下さい。あと、PdaNet入れるのはIS03の方だけどPdaNetの使用レビューをよく見てヒントを先に探しておいた方が良いかと。Web上で紹介している記事も有ります。→http://www.google.co.jp/search?hl=ja&source=hp&q=pdanet+is03&lr=&gbv=2&oq=pdanet+is03>捕捉IS03だとwifiテザリン...
4739日前view108

取扱説明書・マニュアル

1149view
http://fujifilm.jp/.../ff_finepixa400a500_mn_j100.pdf
148 ページ3.72 MB
もっと見る

関連製品のQ&A