Excel VBA質問箱 IV

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

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


25879 / 76732 ←次へ | 前へ→

【56190】Re:文字の検索〜他シートへの書き出しについて。
発言  かみちゃん E-MAIL  - 08/6/8(日) 15:18 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>>このシート1のC列の文字を上から連続で取得し、順番に検索させてシート2に
>>
>>発想を大きく変えて、C列で並べ替えしてはいけないのでしょうか?
>
>かみちゃんさん迅速なレス大変ありがとう御座います。
>本当に大きく発想が変わりましたね。
>
>本当にしたい作業は
>    C列    H列
>    1    A+A
>    2    B+B
>    3    C+C
>    4    D+D
>    5    E+E
>    6    F+F
>と書き出すことなんです、簡単に言うと在庫管理なんですけど。

在庫管理なのかどうかよくわからないのですが、
C列で並び変わっているという前提で、以下のようなコードで上記のシートイメージ
のデータが得られると思います。

Sub Sample()
 Dim i As Long
 Dim lRow1 As Long
 Dim lRow2 As Long
 Dim srcname As String
 Dim strkekka As String
 Dim srcname_tmp As String
 
 lRow1 = Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
 lRow2 = Worksheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row
 For i = 2 To lRow1 + 1 Step 1
  srcname = Worksheets("Sheet1").Cells(i, 3).Value
  If srcname_tmp = "" Then
   srcname_tmp = srcname
  End If
  If srcname <> srcname_tmp Then
   Sheets("Sheet2").Cells(lRow2, "C").Value = srcname_tmp
   Sheets("Sheet2").Cells(lRow2, "H").Value = strkekka
   lRow2 = lRow2 + 1
   srcname_tmp = srcname
   strkekka = ""
  End If
  If strkekka <> "" Then
   strkekka = strkekka & "+"
  End If
  strkekka = strkekka & Worksheets("Sheet1").Cells(i, 8).Value
 Next
 MsgBox "処理を終了しました"
End Sub

2 hits

【56185】文字の検索〜他シートへの書き出しについて。 瞬希 08/6/8(日) 14:12 質問
【56186】Re:文字の検索〜他シートへの書き出しにつ... かみちゃん 08/6/8(日) 14:24 発言
【56189】Re:文字の検索〜他シートへの書き出しにつ... 瞬希 08/6/8(日) 14:58 お礼
【56190】Re:文字の検索〜他シートへの書き出しにつ... かみちゃん 08/6/8(日) 15:18 発言
【56191】Re:文字の検索〜他シートへの書き出しにつ... 瞬希 08/6/8(日) 15:25 お礼
【56194】Re:文字の検索〜他シートへの書き出しにつ... kanabun 08/6/8(日) 15:49 発言
【56195】Re:文字の検索〜他シートへの書き出しにつ... 瞬希 08/6/8(日) 17:24 お礼

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