|
▼ichinose さん:
こんばんは。ありがとうございます
Do Until mySh.Cells(i, 1).Value = ""
Set myCell = .Columns(1).Find(mySh.Cells(i, 1).Value)
If myCell Is Nothing Then
.Range("A" & j & ":" & "I" & j).Value = mySh.Range("A" & i & ":" & "I" & i).Value
.Cells(j, 8).Value = mySh.Name
j = j + 1
Else
If InStr(1, .Cells(myCell.Row, 8).Value, mySh.Name) = 0 Then
.Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name
End If
End If
i = i + 1
Workbooks("book1").Sheets.Count = i - 1
.Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name = Dir()
Loop
でsheet枚数分の情報が8列目に"sheet名"&"sheet名"と取得していきます
それを全sheet枚数分揃った場合その8列目に出る情報をclearにしたいのですが
Workbooks("book1").Sheets.Count = i - 1でエラーが起こり
.Cells(myCell.Row, 8).Value = .Cells(myCell.Row, 8).Value & " & " & mySh.Name = Dir()
上記だと全sheet内情報が消えてしまうのですが
その列:行だけを対象にする為にはどこを直すべきでしょうか?
すいません。分かりましたら教えて下さい
|
|