エクセルの学校：全文検索：Hyper Estraier：エラー値 #N/A

Results of 1 - 1 of about 228 for エラー値 #N/A (0.017 sec.)

エラー値 (861), #n/a (1385)

[[20160427234922]]: #score: 10842; @digest: 385686f0bec40c61515416cd97b303fc; @id: 70565; @mdate: 2016-05-05T13:45:56Z; @size: 2562; @type: text/plain; #keywords: myxls (24371), 20160420202818 (7380), ト統 (4777), 数ブ (2699), 一フ (2147), 様ア (1845), mypath (1837), 今試 (1835), 大元 (1743), 日試 (1723), criteria2 (1410), 合2 (1316), 集計 (955), ダ内 (915), 数日 (888), operator (832), xlcelltypevisible (795), 計シ (784), autofilter (758), ブッ (727), ナ様 (682), トデ (680), 授下 (668), thisworkbook (639), 同一 (620), xlpastevalues (552), ー値 (552), currentregion (526), 計に (517), ォル (501), criteria1 (480), マナ (476); 『複数ブックの集計について』（しゅう）
同一フォルダ内にある複数ブックの集計について教えて下さい。『請求』というフォルダに100ブックのエクセルがあります。それぞれのブックは3シートに分かれていて、その中に『集計』というシートがあるので、そのシートデータを同一フォルダ内のすべてのブックから一つのブックに集計したいです。具体的には、『集計』シートのA列に#N/Aエラーと空白以外の数字があれば、その行ごと、貼り付け先の『大元』ブックのシート1のA2以下にコピペしたいです。 ※集計シートのA列には別シートのデータが反映されるよう関数がはいっており、事前に並び替えしてるので、エラー値は下にまとまるようにしてます。毎月の作業なので、何か良い方法があればご教授下さい。＜使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- おはようございます。 [[20160420202818]] 23:35 『複数のファイル内にある「報告書」を一つのシー...』（りりちゃん☆彡）と同じですね。 NAエラーをifnaで空白にしておけば、 sub シート統合2() が、少しの修正で使えます。まずはご自身で頑張ってみて下さい。（sy） 2016/04/28(木) 08:20 ---- 少し難しかったでしょうか Sub test() Dim myPath As String, myXls As String Dim wb As Workbook, r As Range, dst As Range Dim i As Long, n As Long, o As Long myPath = ThisWorkbook.Path & "¥" myXls = Dir(myPath & "*.xls") Application.ScreenUpdating = False Application.DisplayAlerts = False With ThisWorkbook.Sheets("Sheet1") .Range("a1").CurrentRegion.Offset(1).ClearContents Set dst = .Range("a2") End With Do While myXls <> "" If myXls <> ThisWorkbook.Name Then Set wb = Workbooks.Open(myPath & myXls) Set r = wb.Sheets("集計").Range("a1").CurrentRegion r.AutoFilter r.AutoFilter Field:=1, Criteria1:="<>", _ Operator:=xlAnd, Criteria2:="<>#N/A" n = r.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 If n > 0 Then r.Offset(1).Copy dst.Offset(o).PasteSpecial xlPasteValues End If o = o + n wb.Close False End If myXls = Dir() Loop End Sub （マナ） 2016/05/04(水) 21:01 ---- sy様アドバイスありがとうございます。マナ様ありがとうございます! 今試せる環境にないので、明日試させていただきます! ここ数日、悩んでいたので、たいへん助かりました! まだ少しづつ読み解いてる最中ですが、めちゃめちゃ勉強になります! （しゅう） 2016/05/05(木) 22:45 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201604/20160427234922.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ