[發問] 一列只能有五個數值

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-6-21 16:48 | 只看該作者

[發問] 一列只能有五個數值

本帖最後由 wang077 於 2021-6-21 16:51 編輯

各位大神請問

我如何用VBA懹原本直的1~15
每五個數值排一行

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

21^#

發表於 2021-7-19 14:39 | 只看該作者

回復 18# wang077

可以附上檔案，我幫忙看看是否有解，謝謝

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

20^#

發表於 2021-6-25 09:54 | 只看該作者

回復 19# samwang
好的，感謝您

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

19^#

發表於 2021-6-25 09:44 | 只看該作者

回復 18# wang077

不好意思，不太熟悉CSV檔案這部分，建議可以到Excel 程式區發文，那裏問題比較多人在關注或許可解您的問題，感謝。

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

18^#

發表於 2021-6-25 09:31 | 只看該作者

回復 16# samwang
Sub Openfile()
fileToOpen = Application _
      .GetOpenFilename("Excel Files(*.csv*), *.csv*", MultiSelect:=True)
      num = 0
      linenumber = 0
For num1 = 1 To UBound(fileToOpen)
num = num + 1
If fileToOpen(num) <> "False" Then
Open fileToOpen(num) For Input As #1 ' Open file for input
Do While Not EOF(1) ' Loop until end of file
      linenumber = linenumber + 1
      Line Input #1, line
      arrayOfElements = Split(line, ",")
      elementnumber = 0
      For Each element In arrayOfElements
         elementnumber = elementnumber + 1
         Cells(linenumber, elementnumber).Value = element
      Next
Loop
End If
Close #1 ' Close file.
Next num1
End Sub
這是我的程式碼，開出來的csv檔都是亂碼
用了錄影巨集
發現跟TextFilePlatform有關
大神可以幫我嗎

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

17^#

發表於 2021-6-23 20:57 | 只看該作者

回復 16# samwang
測試過了，沒問題。
感謝大神幫忙，辛苦了。

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

16^#

發表於 2021-6-23 20:29 | 只看該作者

回復 15# wang077

請再測試看看，謝謝

Sub test2()
Dim Arr, Ar(), N%, M%, x%, y%
Arr = Range([a1], [a65536].End(3))
M = Int(UBound(Arr) / 5): x = 1: y = 2
If M < 1 Then
Cells(x, y).Resize(, UBound(Arr)) = Application.Transpose(Arr)
Else
For i = 1 To UBound(Arr)
      ReDim Ar(1 To M)
      If N = UBound(Arr) Then GoTo 99
      If N = M * 5 Then
         ReDim Ar(1 To UBound(Arr) - N)
         For j = 1 To UBound(Arr) - N: N = N + 1: Ar(j) = Arr(N, 1): Next
         Cells(x, y).Resize(, UBound(Ar)) = Ar: Exit For
      End If
      For j = 1 To M: N = N + 1: Ar(j) = Arr(N, 1): Next
      Cells(x, y).Resize(UBound(Ar), 1) = Application.Transpose(Ar)
      Erase Ar
      If y < 6 Then y = y + 1 Else x = x + M: y = 2
99: Next
End If
End Sub