[發問] 輸入資料與報表的問題

q1a2z5

請問：
在輸入表黃色區塊內輸入資料，會在101,102,103.......工作表中呈現出來,公式要如何設定呢？
由於報表(工作表)有20多個，無法很快的完成資料鍵入。
謝謝！

samwang

回復 1# q1a2z5

請測試看看，謝謝。

Sub tt()
Dim Arr, Brr(1 To 13, 1 To 1), T, T2, i%, j%, Y%, N%, N1%
Y = 3
For sh = 2 To Sheets.Count
    With Sheets(sh).Range("A4:G12")
        Arr = .Value
        For i = 1 To 4
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "月") = False Then GoTo 98
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N = N + 1: Brr(T + 1, 1) = T2
98:         Next j
        Next i
        If N > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("輸入表").Cells(2, Y).Resize(13, 1) = Brr
            Erase Brr
        End If      
        For i = 5 To 8
            For j = 2 To UBound(Arr, 2)
                If InStr(Arr(i, j), "月") = False Then GoTo 99
                T = Mid(Arr(i, j), 1, Len(Arr(i, j)) - 1): T2 = Arr(i + 1, j)
                If T2 <> "" Then N1 = N1 + 1: Brr(T + 1, 1) = T2
99:         Next j
        Next i
        If N1 > 0 Then
            Brr(1, 1) = Sheets(sh).Name
            Sheets("輸入表").Cells(16, Y).Resize(13, 1) = Brr
            Erase Brr
        End If
        If N > 0 Or N1 > 0 Then N = 0: N1 = 0: Y = Y + 1
    End With
Next
End Sub

q1a2z5

回復 2# samwang

感謝你的解答，但我不知如何執行？
謝謝！

samwang

回復 3# q1a2z5

上傳檔案，請執行看看，謝謝。

q1a2z5

回復 4# samwang

不好意思，我沒有將問題問的很清楚，我的問題是在輸入表黃色區塊內依序輸入資料（數值），會立即在各報表101,102,103工作表（紅色區塊內)顯示出來，
因為在工作表作一次性的輸入全部資料會比較方便。

謝謝！

q1a2z5

回復 5# q1a2z5

忘了上傳附件，已補上，謝謝！

samwang

回復 5# q1a2z5

不好意思，自己粗心大意，沒看清您的需求，我再來想看看，謝謝。

samwang

回復 6# q1a2z5


如附件請測試看看，謝謝

q1a2z5

回復 8# samwang

謝謝大大的解答，但日後在工作上有可能會碰到類似的問題，
請教如何學習一些簡單基本的公式或程式，例如：在工作表1的B3(或B欄)儲存格輸入資料，在工作表2的C5或其他的儲存格顯示。

謝謝！

samwang

回復 9# q1a2z5

不好意思，真的不知道您的需求，或者您方便上傳檔案，我再來研究一下，謝謝