| |
▼ichinose さん：
>おはようございます。
>
>>B列に「・」がある場合その行をコピーしたいです。
>>
>>りんご｜いちご・なし・ぶどう｜すいか｜メロン｜
>>キリン｜サル ｜タヌキ｜ネズミ｜
>>↓
>>りんご｜いちご・なし・ぶどう｜すいか｜メロン｜
>>りんご｜いちご・なし・ぶどう｜すいか｜メロン｜
>>りんご｜いちご・なし・ぶどう｜すいか｜メロン｜
>>キリン｜サル ｜タヌキ｜ネズミ｜
>>
>>
>>「・」が二つあるので下に２行コピーしました。
>>
>>お知恵を貸してください。
>
>まず、繰り返し処理を行う
>
>For〜Next文
>For Each In 〜 Next文
>Do While 〜Loop文
>Do Until 〜Loop文
>
>は、わかりますか？
>殆どのプログラムには、必要ですから、知らなければ調べてください。
>
>
>>「・」がある場合その行をコピーしたいです。
>
>・ の数は、
>
>Sub test()
> Dim cnt As Long
> cnt = UBound(Split(Range("b1").Value, "・"))
> MsgBox cnt
>End Sub
>
>こんな方法で得られます（但し、cntは、何も入力されていないと-1を返すので注意）
>
>>行コピー
>
>行のコピーはマクロの記録を使って、おおよその見当を付けてください。
ありがとうございました
何度も
>まず、繰り返し処理を行う
>
>For〜Next文
>For Each In 〜 Next文
>Do While 〜Loop文
>Do Until 〜Loop文
>
>は、わかりますか？
については説明を読んでいるのですが、それが
自分のやりたい事にどうつなげればいいのかが
いつもわかりません。。。
もう少し勉強してみます！
ありがとうございました！
|
|
やみ
- 11/10/7(金) 20:23 -
