|
こんにちは結合セルを解除したいのですが、うまくいきません。
ご助言いただけないでしょうか?
Sub Edit()
Dim FileNmaeOrg(15)
Dim Array1
Dim Rows1
Dim xls
Dim xlsBook
Dim xlsSheets
Set xls = CreateObject("Excel.Application")
Set xlsBook = xls.Workbooks.Open("test.xls")
Set xlsSheets = xlsBook.Worksheets("sheet1")
For Array1 = 1 To 15
For Rows1 = 41 TO 55
If Isnull(FileNmaeOrg(Array1)) then
Exit Sub
Else
'ここでエラー "この変数は定義されていません。:'Cells'"
Set FileNmaeOrg(Array1) = xlsSheets.Range( _
Cells(4, Rows1), Cells(11, Rows1)).UnMerge
End If
Next
Next
End Edit
処理内容は、8列結合されたセルに何か値が記述されていたら、
結合を削除する。という処理を15行繰り返して終了しする。
web等で見よう見まねで作成したのでそもそもって所から間違って
いるかもしれません。宜しくお願いします。
|
|