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

大至急!!エクセルのデータコピー方法を教えて下さい! 商品の在庫や値...

大至急!!エクセルのデータコピー方法を教えて下さい! 商品の在庫や値段のつけ方等を行うシートを作成してました。

コピー先には関数がいたるところに入力されてあり、データを並べ替えたり
削除したりできません。その上で、コピー元のデータをコピー先に移動させるのに
処理が早くできる方法をどなたかご存じないでしょうか?
宜しくお願い致します。下記は詳細になります。

コピー先の入力できる場所
データ1. 『A7』『A19』『A31』『A43』・・・と12行おきに同列に空欄
データ2. 『E7』『E19』『E31』『E43』・・・と12行おきに同列に空欄
データ3. 『A10』『A22』『A34』『A46』・・・と12行おきに同列に空欄
※おそらく終りは10000行目位まで続いております。。。

コピー元の状況
データ1´. 『C2』『C10』『C18』『C26』・・・と8行おきに同列にデータがあります
データ2´. 『J2』『J10』『J18』『J26』・・・と8行おきに同列にデータがあります
データ3´. 『D6』『D14』『D22』『D30』・・・と8行おきに同列にデータがあります
※こちらも終りは10000行目位まで続いております。。。

この上記内容の時、コピー元からコピー先へデータを値のみ移行したい場合
どのようにすれば早く処理できますでしょうか?

移動の例)データ1´をデータ1へデータ2´をデータ2へ
データ3´をデータ3へ『C2→A7』『J2→E7』『D6→A10』のように移動します。
コピー先データとコピー元データは別々のシートに存在しています。
宜しくお願い致します。
Yahoo!知恵袋 5130日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
マクロの例です。

データ1の場合

Dim i As Long
Dim j As Long

j = 2
For i = 7 To 10003 Step 12
Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("C" & j).Value
j = j + 8
Next i

データ2、データ3は応用してください。
Yahoo!知恵袋 5130日前
シェア
 
コメントする
 

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

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
66
Views
質問者が納得カメラの機種名はK5ですよね? と言うよりK5以外は生産終了してますから。 私も所持してますが非常に良いカメラかと思います。 私は花をよく撮りますがやはりマクロレンズは必須かな。 極端ですがK5ボディーとマクロレンズ(4~6万円)を買う方法もあります。 予算次第ですがね。 時々蘭を撮影しますが個人的には余り良い被写体とは思えません。 撮影自体も他の花に比べて楽しくないし面白くありません(笑) ですから撮影に集中し過ぎて鑑賞が疎か・・・にはならないと思います。
4506日前view66
全般
88
Views
質問者が納得A1:A10セルを選択してコピー B1セルを選択して 右クリック[形式を選択して貼り付け] →[行列を入れ替える]にチェックを入れて[OK] A列を削除 でいいです。
4529日前view88
全般
107
Views
質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...
4537日前view107
全般
78
Views
質問者が納得条件を入力した際に「$A$1」となっていませんか? これだと、どのセルからでもA1セルの状態を見て、書式が変更されます。 もう一度、A1:J10を選択して、条件付き書式の設定ウィンドウを表示させ「$」をすべて削除してみて下さい。
4535日前view78
全般
72
Views
質問者が納得=IF(SUMPRODUCT(G10:G12*J10:J12)/3>150,"A",IF(SUMPRODUCT(G10:G12*J10:J12)/3>50,"B","C")) 三回修正--;
4535日前view72

取扱説明書・マニュアル

885view
http://fujifilm.jp/.../ff_finepixj10_mn_j101.pdf
142 ページ4.05 MB
もっと見る

関連製品のQ&A