- ベストアンサー
エクセルのマクロについて
todysseyの回答
- todyssey
- ベストアンサー率32% (25/77)
マクロの記録を利用して勉強してはいかがですか ツール→マクロ→新しいマクロの記録 を指定してマクロ名を作成してから Ｎ４にカーソルを置き Ctrl + ↓ で最終行まで飛ばし そのまま コピー 任意の場所で貼り付け その後 ツール→マクロ→記録終了 を選択し 作成されたマクロを編集で確認してみてください 単純にその方法でできる場合があります もしそれでだめなときは For to next を使って Ｎ列を1行ずつ値が入っているか確認させて 無くなった行No.-1 のセルをコピー 任意の場所に代入という形になりますが いかがでしょうか
関連するQ&A
- エクセル2010 繰り返しマクロ
(1)g列の空白の最上行に =SUMPRODUCT(min((a:a>=f2)*(a:a<f2+730)*e:e)) と入力。 そのセルをコピーし、同じセルに値を上書き貼り付け ↓ (2)a列に(1)のセルの左隣のセル以下の数値がある行の、b列を削除 (画像の場合、(1)のセルがg1の場合、b2,b3を削除する) というのを、f列に数値がある行だけ繰り返すマクロの構文を教えてください。 大変お手数おかけいたしますが、どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロで空白セルに貼り付ける
エクセルで表を作っていますが、マクロを使って、空白セルの左隣の値をコピーし、空白セルに貼り付けをしたいのですが、うまくいきませんでしたので、教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで結合されたセルをコピー
こんばんは、エクセルで、結合されたセルを結合セル数の違うセルにマクロで貼り付けたいのですが、どのようにしたらよいでしょうか？ 結合セル数が違ってもコピー貼り付けできるところとできないところがあるのですが、どうしてでしょうか？ よろしくお願い致します！！！！！
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについて教えて下さい
エクセルで、データ（書類）のコピー貼り付けのマクロを組みました。 ツール→マクロで、新しいマクロの記録から、実際にコピーをして貼り付けをし、記録の終了をしました。 次に他のセルの場所でもそのマクロを実行して、何度も場所を変えてコピー貼り付けを実行したいのですが、操作用のボタンを作成して貼り付け、ボタンを押すと、同じ場所でコピー貼り付けを繰り返します。 たしか絶対参照とか相対参照とかあったような気がするのですが…。 どうすれば、他の場所でもボタンを押すだけでコピー貼り付けのマクロを実行できるようになりますか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのマクロ（VBA）について教えてください。
このようなマクロをつくりたいのですがうまく作れません。 セルをコピーした後、貼り付け先のセルを選択して、 ＜ここからがマクロ＞ 形式を選択して貼り付け→罫線を除くすべて ＜マクロ終了＞ 他の貼り付け方法はうまくできるのですが、「罫線を除くすべて」だけができません。 参考までにこれが作られたVBAです。 Sub Macro1() Selection.PasteSpecial Paste:=xlAllExceptBorders, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub 以上です。 どなたかアドバイスよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロで貼り付けができません。
エクセルのマクロについて質問です。 ある表を「可視セルを選択」→「アクティブ領域を選択」し、コピーした後、別のシートに貼り付けようとしたところ、エラー「コピー領域と貼り付け領域の形が違う為情報を貼り付けることができません」が表示され、貼り付けられませんでした。マクロを作成した時に、同じ形の元データ数種類を使用し動作を確認した時は、貼り付けができました。今回使用した元データと相違する部分を探しましたが、見当たりせんでした。また、貼り付け元・先共に、結合するセルはありません。 解決策はあるのでしょうか？
- 締切済み
- オフィス系ソフト
- Excxl セル移動マクロ
マクロの初心者です。 Excxl のマクロで、ActiveCell を選択されている"行"の左端からｎ番目にセル移動する場合 Cells(ActiveCell.Row, n).Select で目標のセルが選択されますが、選択されている"列"の上端からｎ番目にセル移動する場合は、どう記述するのでしょうか、ヘルプの文は難しいのでよくわかりません。 教えて下さい。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELで”＋100"を実行するマクロ
EXCELで、マクロを実行するたびに、そのセルに入っている数に100プラスされるマクロを作りたいのです。 意味がよく分からないかもしれませんが、 例えば、あるセルに"100"という数値が入っていて、 1回実行すれば100＋100で"200"に、もう1度実行すると、200＋100で"300"に。…という感じです。 私的に考えたのは、 別のセルに"そのセル+100"をする式を書き込み、 コピー＆元のセルに値貼り付けをし、 式の入った別のセルをDELする… というのをマクロにしてみたのですが、 イマイチうまくないというか… よい方法があったら、アドバイスください。
- ベストアンサー
- オフィス系ソフト
- 至急お願いします。エクセルのマクロに関してです。
かなり至急です＞＜エクセル2010のマクロの質問です。 2つ質問があります。 1つ目です。 以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？ 現在は、シート1にデータがあります。 (1)選択した3列を、B~D列に移動する (2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。 (たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。) (3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。 (たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。) 現在は (1)Sub () Selection.Cut ActiveCell.Columns("A:C").EntireColumn.Select Selection.Cut Columns("B:B").EntireColumn.Select Selection.Insert Shift:=xlToRight End Sub (2) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets.Add Next End Sub (3) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _ Sheets("Sheet" & n - 252).Range("A3") Next End Sub と別々のマクロに分けてます。 また(2)(3)でみられる For n = 14 To 18 ' の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。 2つ目です。 複数ブックに同じ動作をするエクセルのマクロが知りたいです。 現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、 そのようなマクロはどうくんだらよろしいでしょうか。 ちなみにExcel2007です。 困っているので、お願いします。
- 締切済み
- その他MS Office製品
お礼
ありがとうございました。 申し訳ありません 私は初心者なので あまり専門的なことを 言われても理解できません 本当にごめんなさい。