麻辣家族討論版版 » VB 與 VB.Net » 一列只能有五個數值

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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
每五個數值排一行

樓主熱帖

收藏

大學生 Rank: 4

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

2^#

發表於 2021-6-22 08:32 | 只看該作者

本帖最後由 samwang 於 2021-6-22 08:33 編輯

回復 1# wang077

不好意思對文字理解不太好，看了似懂非懂，請問規則為何? 可否再加說明詳細或附上解答，謝謝。

每五個數值排一行: 亂數，可重複...

大學生 Rank: 4

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

3^#

發表於 2021-6-22 11:17 | 只看該作者

回復 1# wang077

請測試看看，謝謝。

Sub test()
Dim Arr, Ar(1 To 3)
Arr = Range([a1], [a65536].End(3))
y = 2
For i = 1 To UBound(Arr)
For j = 1 To 3
N = N + 1: If N > UBound(Arr) Then GoTo 99
Ar(j) = Arr(N, 1)
Next
Cells(1, y).Resize(3, 1) = Application.Transpose(Ar)
y = y + 1
99: Next
End Sub

大學生 Rank: 4

帖子: 1409
主題: 4
精華: 0
積分: 1419
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-4-3

熱烈參與勳章

4^#

發表於 2021-6-22 16:09 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589846795

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

中學生 Rank: 2

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

5^#

發表於 2021-6-22 19:14 | 只看該作者

回復 2# samwang
打錯了應該是3個數值一行，然後限制最多5行，數值不一定是1～15，上面圖片只是示意圖

中學生 Rank: 2

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

6^#

發表於 2021-6-22 19:17 | 只看該作者

回復 4# hcm19522
有辦法使用vba來做嗎

大學生 Rank: 4

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

7^#

發表於 2021-6-22 19:45 | 只看該作者

回復 5# wang077

不好意思，真的不能理解您的需求，或者您可以附上有解答的檔案且說明詳細條件規則，感謝。

中學生 Rank: 2

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

8^#

發表於 2021-6-22 23:28 | 只看該作者

回復 3# samwang
For i = 1 To UBound(Arr)
這段顯示資料型態錯誤

中學生 Rank: 2

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

9^#

發表於 2021-6-22 23:35 | 只看該作者

回復 6# wang077

就是例如圖片
我A欄中的數值
要把它分成五行來排列
排列方式A1:A3的數值在B1:B3
A4:A6的數值在C1:C3
以此類推。

大學生 Rank: 4

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

10^#

發表於 2021-6-23 07:17 | 只看該作者

回復 9# wang077

3樓程式碼沒問題如附件，請再測試看看，謝謝。

活頁簿1.zip (14.1 KB)

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題