excel vba請各位幫幫忙

Man320

Man320
個人積分：0分
文章編號：75747094

0分

樓主

2019-12-11 14:00

2019-12-11 14:00 發佈

文章關鍵字 Excel VBA

小小尉

小小尉
個人積分：247分
文章編號：75748286

247分

2樓

2019-12-11 15:31

Man320 wrote:
我是vba新手，我上...(恕刪)


Dim i As Integer
i = 1
For Each a In Worksheets
    If a.Name <> "新開的分頁名稱" Then
        Worksheets("新開的分頁名稱").Cells(i, 1).Value = a.Cells(1, 1).Value
        i = i + 1
    End If
Next

試試看，Value位置需要自己改一下

Man320

Man320
個人積分：0分
文章編號：75787773

0分

樓主

2019-12-14 23:50

小小尉 wrote:
Dim i As Integeri...(恕刪)

感謝你..已成功弄好了,我還有一個問題想請教一下,就是我之前做的多檔案合併,我希望它合併完出來是由小至大排列,因為現在出來是由數字大至小排列,程式碼現在是這樣

Private Sub CommandButton1_Click()

'活頁簿存放路徑，可自行修改存放路徑
Path = "C:\Users\ChonMan\Desktop\test\"
Filename = Dir(Path & "*.xl*")
i = 1

Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = i
i = i + 1
Next Sheet

Workbooks(Filename).Close
Filename = Dir()
Loop
Sheets("Worksheet1").Select
Range("G4").Select
End Sub

小小尉

小小尉
個人積分：247分
文章編號：75792640

247分

4樓

2019-12-15 15:40

Man320 wrote:
感謝你..已成功弄好(恕刪)

把表單移動一下應該就可以了!

請參考↓↓↓


Sub test()

'活頁簿存放路徑，可自行修改存放路徑
Path = "C:\Users\ChonMan\Desktop\test\"
Filename = Dir(Path & "*.xl*")
i = 1

Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = i
ActiveSheet.Move after:=Sheets(i + 1) '移動Sheet至最後右邊
i = i + 1
Next Sheet

Workbooks(Filename).Close
Filename = Dir()
Loop
Sheets("Worksheet1").Select
Range("G4").Select
End Sub

從 APP 打開