Excel VBA 請益 - Excel程式區 - 麻辣家族討論版版

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

1^# 跳轉到 »

發表於 2021-7-21 08:13 | 顯示全部帖子

本帖最後由 samwang 於 2021-7-21 08:17 編輯

回復 1# zz0660

請測試看看，謝謝

Sub test()
Dim Arr, T, T1, i&, j&
T = Sheets("AA").Range("c1")
With Sheets("QQ")
Arr = .Range("a1:n" & .[b65536].End(3).Row)
For i = 1 To UBound(Arr) Step 9
      For j = 2 To UBound(Arr, 2) Step 8
         T1 = Arr(i, j): If T1 = "" Then GoTo 99
         If T1 = T Then
            .Cells(i, j).Offset(1).Resize(4, 5).Copy Sheets("AA").[c2]
            Exit Sub
         End If
99:    Next
Next
End With
End Sub

TOP

samwang

大學生 Rank: 4

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

2^#

發表於 2021-7-22 08:04 | 顯示全部帖子

回復 samwang

Arr = .Range("a1:n" & ..End(3).Row)

For i = 1 To UBound(Arr) Step 9
Fo ...
zz0660 發表於 2021-7-21 23:24

step 9 和 step 8 可移除，因為看你的查詢資料有固定才這樣設定，謝謝

Arr = .Range("a1:n" & ..End(3).Row) '將要查詢資料裝入數組
For i = 1 To UBound(Arr) Step 9    '從第1列開始循環,每次跳9列
      For j = 2 To UBound(Arr, 2) Step 8 '從第2欄開始循環，每次跳8欄

TOP

samwang

大學生 Rank: 4

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

3^#

發表於 2021-7-23 08:08 | 顯示全部帖子

回復 6# zz0660

您好，假設QQ裡面的數字都有公式組成，但顯示在AA的地方，只想要單純的數字，請問要多加什麼程式碼？
>> 不太能理解您的問題，可否提供附件加以說明，謝謝

For j = 2 To UBound(Arr, 2) Step 8 這個要怎麼改成第一欄？
直接把2改成1的話程式會錯誤。
>> 2改成1的話程式不會錯誤，可否提供檔案，謝謝

TOP

samwang

大學生 Rank: 4

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

4^#

發表於 2021-7-23 10:25 | 顯示全部帖子

回復 8# zz0660

按T1就會顯示T1的資料
>> T1是指哪裡資料? T2?? T3??

TOP

samwang

大學生 Rank: 4

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

5^#

發表於 2021-7-23 11:02 | 顯示全部帖子

回復 8# zz0660

請測試看看，下面是T1，如果要T2時T1和T3移除就可以，T3同上，謝謝

Sub T1()
Dim Arr, T, T1, i&, j&
T = Sheets("AA").Range("c1")
With Sheets("QQ")
Arr = .Range("a1:h" & .[b65536].End(3).Row) 'T1 T1,T2,T3請自行選擇更換
'Arr = .Range("j1:q" & .[k65536].End(3).Row) 'T2
'Arr = .Range("s1:z" & .[t65536].End(3).Row) 'T3
For i = 1 To UBound(Arr) Step 19
      T1 = Arr(i, 2): If T1 = "" Then GoTo 99
      If T1 = T Then
         Sheets("AA").[B3].Resize(16, 8).Value = .Cells(i, 1).Offset(1).Resize(16, 8).Value
         Exit Sub
      End If
99:  Next
End With
End Sub

TOP

samwang