Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61254 / 76732 ←次へ | 前へ→

【20100】Re:列の結合について
回答  ichinose  - 04/11/28(日) 10:02 -

引用なし
パスワード
   ▼タヌキ さん:
おはようございます。

>もしわかる方がいらしたら是非教えてください。
>
> A B C........Z
>1 ☆ ★
>2 ▼ ○
>3 ※ ◇
>4
>:
>:
>
A列、B列、・・・の全ての列に入力されているデータ行数が3行なら
もっと簡単なのですが・・・。

>と、なっているものを
>
> A B C........Z
>1 ☆
>2 ▼
>3 ※
>4 ★
>5 ○
>6 ◇
>
>というふうにA列にB列を足すコードを教えてください。

上記のシートをアクティブにして以下のコードを試してみて下さい。
'===========================================================
Sub main()
  Dim limc As Long
  Dim strow As Long
  Dim r_cnt As Long
  limc = Cells(1, Columns.Count).End(xlToLeft).Column
  strow = Cells(Rows.Count, 1).End(xlUp).Row + 1
  For idx = 2 To limc
   r_cnt = Cells(Rows.Count, idx).End(xlUp).Row
   With Range(Cells(1, idx), Cells(r_cnt, idx))
    Range(Cells(strow, 1), Cells(strow + r_cnt - 1, 1)).Value = _
        Range(Cells(1, idx), Cells(r_cnt, idx)).Value
    .Value = ""
    End With
   strow = strow + r_cnt
   Next
End Sub
0 hits

【20099】列の結合について タヌキ 04/11/28(日) 7:04 質問
【20100】Re:列の結合について ichinose 04/11/28(日) 10:02 回答
【20112】Re:列の結合について タヌキ 04/11/28(日) 18:36 質問
【20113】Re:列の結合について かみちゃん 04/11/28(日) 19:05 回答
【20120】Re:列の結合について タヌキ 04/11/28(日) 22:21 お礼

61254 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free