ベストアンサー

エクセルマクロで外部ファイルを開きたい

2010/08/23 09:28

DOUGLAS_の回答

DOUGLAS_
ベストアンサー率74% (397/534)

2010/08/28 20:18 回答No.12

＞データはM列～R列まで（6列）関数を入れた＞算式が入っています。（たてに500行くらい）　ここで、疑問に思うのですが、書き出そうとしているデータ範囲は『対象セル範囲内の数式セル範囲（エラー値セル除外）』だけなのでしょうか？　つまり、「M列～R列まで（6列）」に入っているデータはすべて数式で、その中から「エラー値」・「空白セル」以外を書き出したい、ということなのでしょうか？【質問１】 -------------------------------- ＞１グループは15～30行くらいで、＞エンドダウンキーで止まるように＞グループの各最終行は各列とも＞算式を削除した空欄行にしてあります。　この「空欄行」は最初から「空欄行」なのでしょうか？　それとも、操作のためにわざわざ手作業で「空欄行」を作っておられるのでしょうか？【質問２】 -------------------------------- ＞またグループ内途中にも空欄行が発生する場合があり、＞これはIf関数で=""表示をして空白になっていますとのことですが、これは、最初から「If関数で=""表示」されているのであって、「空欄行が発生」してから手作業で「If関数」を入れているのではありませんよね？【質問３】 -------------------------------- ＞算式は残っているためデータ内に含まれます。＞（あとで空白を削除するのはこのためです）　了解しました。 -------------------------------- ＞スタートはR列から始まり、RQPOMNの順に収集し、＞それを縦一列にしたものがテキスト貼り付けになります。　了解しました。 -------------------------------- ＞1グループのテキストへの貼り付けが終わると＞次のR列のスタート位置にカーソルを置きマクロを実行します。　これが、次の課題かと存じます。　取り敢えず、＞【Ａ】やはり、最初の追記案に絞って質問をスタート。が済んでからにいたしましょう。 -------------------------------- ＞各列の１行目はあとで縦一列になったときに区分しやすいように、＞■記号とタイトルに相当する文字を表示しています。　ということは、例えば３行目から始まっている場合には、R3・Q3・P3・O3・M3・N3 のすべてに「■記号とタイトルに相当する文字」が入っているということでしょうか？【質問４】 -------------------------------- 　ついでに、この「■記号とタイトルに相当する文字」は、自動的に入っているのですか？　それとも手作業で入れているのですか？【質問５】 -------------------------------- ＞（あとでこれを部分修正してファイル名、その他のちの作業上で使います）　「部分修正」には法則があるのでしょうか？【質問６】 -------------------------------- 　No4 の「お礼」に＞100825は日付ですがあらかじめデータの中に＞関数で組み込まれて表示できるようにしてあります。とお書きですが、「■記号とタイトルに相当する文字」と「100825」とは具体的にどのような感じで入っているのでしょうか？【質問７】 -------------------------------- 　以上、・No10・No11 の説明をお読みいただいて、まだお分かりにならないことがありましたら、お示しください。・No12 の７つの【質問】にお答え願います。

質問者

お礼 2010/08/29 07:39

実際のエクセルbookを見せできれば作業もしやすいかと思いますが DLできるようサイトUPしてリンクすると「違反」扱いされるようなのでここで参考までにデータも記述しておきます。元データは(A列)になります。（放送曲目のリストで（曲名／アーチスト名＜ソース番号＞）になります）なお、関数式については、追記を繰り返して作成したためまわりくどくなってしまったものもありますが今回の質問対象外にさせていただきます。 (1)08月29日(日) (2)-------------------------------------------------------------------------------- (3)００：００／ＮＥＷ (4)・Ａ１○○○ ／Ｂ１△△ ＜ AA12345 ＞ (5)・Ａ２○○○ ／Ｂ２△△ ＜ AA12346 ＞ (6)・Ａ３○○○ ／Ｂ３△△ ＜ AA12347 ＞ (7)・Ａ４○○○ ／Ｂ４△△ ＜ AA12348 ＞ (8)1:00 (9)・Ａ５○○○ ／Ｂ５△△ ＜ AA12355 ＞ (10)・Ａ６○○○ ／Ｂ６△△ ＜ AA12365 ＞ (11)・Ａ７○○○ ／Ｂ７△△ ＜ AA12375 ＞ (12)・Ａ８○○○ ／Ｂ８△△ ＜ AA12385 ＞ (13)（空欄） (14)（空欄） (15)０２：００／ＯＬＤＭＩＸ (16)・Ａ９○○○ ／Ｂ９△△ ＜ AA12945 ＞ (17)・Ａ１０○○○ ／Ｂ１０△△ ＜ AA17345 ＞（以下略） ※各()内はエクセル行番号でデータにはありません ※(7)は不要行なのでL列セルの番号を削除し(M～R)を空欄行にします（算式のみ） ※(8)(13)(14)は(M～R)がエラー表示されるので(7)と同じ処理をします ※グループの終端を指示するため、(12)の(M～R)は算式を削除し空白行にします。（この場合12も不要行のため） ※(15)からはグループ２になります。 (7)(8)のL列セルを削除すると連続番号がそのあとに連続するようにしています。（自動連続するのは２セル削除した場合のみで１セルの場合は連続しないため続き番号の先頭を入力しています）この結果得られるデータは次になります。(4行目の場合） (M)Ａ１○○○ (N)Ｂ１△△ (O)10080100-01-Ａ１○○○(Ｂ１△△) (P)1.Ａ１○○○(Ｂ１△△)-10080100 (QＡ１○○○(Ｂ１△△) (R)1.Ａ１○○○(Ｂ１△△) H3 =LEFT(IF(LEFT(TRIM(A3),1)="・",RIGHT(TRIM(A3),LEN(TRIM(A3))-1),TRIM(A3)),(FIND("＜",IF(LEFT(TRIM(A3),1)="・",RIGHT(TRIM(A3),LEN(TRIM(A3))-1),TRIM(A3)),1)-1)) T3 =IF(K3="","",TRIM(IF(LEFT(TRIM(RIGHT(H3,LEN(H3)-(FIND("／",H3,1)-1))),1)="／",RIGHT(TRIM(RIGHT(H3,LEN(H3)-(FIND("／",H3,1)-1))),LEN(TRIM(RIGHT(H3,LEN(H3)-(FIND("／",H3,1)-1))))-1),TRIM(RIGHT(H3,LEN(H3)-(FIND("／",H3,1)-1))))))