| |
▼タヌキ さん：
おはようございます。
>もしわかる方がいらしたら是非教えてください。
>
> A B C........Z
>1 ☆ ★
>2 ▼ ○
>3 ※ ◇
>4
>:
>:
>
Ａ列、Ｂ列、・・・の全ての列に入力されているデータ行数が３行なら
もっと簡単なのですが・・・。
>と、なっているものを
>
> 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
|
|
ichinose
- 04/11/28(日) 10:02 -
