システムwiki

ループを使用するには、特定のセルをコピーして続行できますか?

TaniyaM 受付中 最終更新日:2021-06-14 06:28

私はあなたが主題から何も理解するつもりはないと確信しています.ごめんなさい.私が私が必要としていることのために私が必要とするもののために主題を与える方法がわからない♥

例::範囲内のデータがあります( "A1:A20000")

A1:A50のマクロファースト50を起動するときは、k1またはL1にコピーし、いくつかのマクロを実行し、A51:A101コピーを選択し、次にA102:A152に到達するまで続きます.

誰もがこれを手伝ってくれることができますか?私は単一のセルをコピーして魔法をやるが上記のようなものではないマクロを持っています.

返信リスト(回答:8)

7 #
Vijay

下のロジックの種類を使用できます (注)最初の範囲がA1:A50の場合、2番目の範囲はA51:A100ではなくA51:A101(A1:A50は50セルを意味する50セル51セルを意味する).3番目の範囲はA101になります.A150 NOT A102:A152

sub x()
薄暗く、長く、fのように
i= 1から400の場合
s=(i-1)* 50 + 1
f= i* 50
範囲( "A"&S&":A"&F).コピー範囲( "k"&s)
'マクロを呼んでください
次のI
終了サブ

応答7# ->にスキップ
5 #
TaniyaM

上記のコードは50行の最初のセットをK列にコピーし、MSGBOXを入力しますが、次のセットはコピーされていませんが、MSGBoxはループを保持します.

サブX()
薄暗く、sは長く、fは長い
i= 1~400
s=(i-1)* 50 + 1
F= I* 50
範囲( "A"&S&":A"&F).コピー範囲( "k"&s)

MSGBOX「テスト」列( "k:k").を選択 selection.clear範囲(「A1」).を選択

次のi
終了SUB

約26000行(A1:A26000)

があります

応答5# ->にスキップ
4 #
Vijay

私はこれをテストしました.これは正しく機能しています.K1でコピーしたら、列全体を消去します.次回はK51にコピーされます.これを再度消去します.

応答4# ->にスキップ
8 #
TaniyaM

こんにちは、

私はもう一度試しましたが、私が何を意味するのかを取得しません...データ範囲A1:A300とマクロ部分で試しました.MSGBOX「TEST」を保持しているため、テストMSGBOXは6回(300/50)のみ表示されるべきですが、メッセージボックスが際限なく続く、そして私が強制的にマクロを強制的に終了すると
X ESCを使用すると、K列の最初の50データが見つかりました....

応答8# ->にスキップ
3 #
Vijay

テストでは、6回表示されます.
私はあなたの問題に特有の解決策をあなたに提供するためにあなたのブックを見ている必要があります.
サンプル/ダミーファイルの準備をしてアップロードして、OneDriveに秘密/機密データをアップロードしてアップロードしてリンクを共有しますか?それは私が迅速かつ正しい解決策を与えるのを助けるでしょう.
コンピュータ上のoneDriveApplicationからアップロードできます.
このApplicationがない場合は、
1.ログインします https://onedrive.live.com/ このフォーラムで使用したのと同じログインIDとパスワードを利用しています.(またはコンピュータにインストールされているOneDriveを使用してください)
2.上部の[アップロード]をクリックするか、ファイルをドラッグアンドドロップします.
3.アップロード後、ファイルを右クリックして[共有]を選択します.
4.オプションですが推奨-許可編集をオフにする
5.リンクをクリックします.
6.リンクをコピーしてリンクを貼り付けます.

応答3# ->にスキップ
1 #
TaniyaM

こんにちは、

チェックしましたか?

応答3# ->にスキップ
2 #
TaniyaM

本当にごめんなさい.私は最近忙しかったです.

応答7# ->にスキップ
6 #
TaniyaM

50の加算に関しては私の間違いです.申し訳ありません.

迅速な返信をありがとう.私はそれを試してみてあなたに知らせます.もう一度ありがとう.

関連質問