av8d

帖子: 693
主題: 273
精華: 0
積分: 992
點名: 9
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2023-11-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-3-1 15:40 | 只看該作者

[發問] 為何只抓到第一筆資料

只抓到第一筆資料.rar (55.44 KB)

嘗試撰寫兩個題目，努力網路查詢研究中，前輩有空還請過目，感謝

樓主熱帖

dou10801

中學生 Rank: 2

帖子: 131
主題: 36
精華: 0
積分: 209
點名: 297
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2023-11-28

2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

2^#

發表於 2023-3-2 08:16 | 只看該作者

Private Sub CommandButton5_Click()
For i = 2 To 10
      If Sheets(2).Cells(i, 8) <> "" Then
         For j = 2 To 10

            If Sheets(1).Cells(j, 8) = "" Then
                  Sheets(1).Cells(j, 2) = Sheets(2).Cells(j, 2)
                  Sheets(1).Cells(j, 3) = Sheets(2).Cells(j, 3)
                  Sheets(1).Cells(j, 4) = Sheets(2).Cells(j, 4)
                  Sheets(1).Cells(j, 5) = Sheets(2).Cells(j, 5)
                  Sheets(1).Cells(j, 6) = Sheets(2).Cells(j, 6)
                  Sheets(1).Cells(j, 7) = Sheets(2).Cells(j, 7)
                  Sheets(1).Cells(j, 8) = Sheets(2).Cells(j, 8)
            End If
         Next
      End If
Next
End Sub
試試看

杜小平

TOP

av8d

高中生 Rank: 3 Rank: 3

帖子: 693
主題: 273
精華: 0
積分: 992
點名: 9
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2023-11-23

3^#

發表於 2023-3-2 10:58 | 只看該作者

本帖最後由 av8d 於 2023-3-2 10:59 編輯

回復 2# dou10801

謝謝前輩，長的幾乎一模一樣卻有前後差異，我帶回去好好研究一下。
(原來是我把i打成j尷尬了，感謝)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1077
主題: 40
精華: 0
積分: 1102
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010&2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2023-11-28

4^#

發表於 2023-3-2 11:34 | 只看該作者

本帖最後由 Andy2483 於 2023-3-2 11:43 編輯

回復 1# av8d

謝謝前輩們
後學研究學習此情境的解決方案如下,請前輩參考

執行前:

執行結果:

Option Explicit
Private Sub CommandButton5_Click()
Dim R&, i&, j%
'↑宣告變數:R是長整數變數,i是長整數變數,j是短整數變數
R = Sheets("主場").Cells(Rows.Count, "H").End(3).Row
'↑令R這長整數是主場表H欄最後一個有內容的儲存格列號
For i = 2 To Sheets("樣板").Cells(Rows.Count, "H").End(3).Row   '這外迴圈跑縱向(列)
'↑設外順迴圈!i從2 到樣板表H欄最後一個有內容的儲存格列號
If Sheets("樣板").Cells(i, 8) <> "" Then
'↑如果樣板表的 i迴圈列H欄儲存格值不是空字元??
   R = R + 1
   '↑在If條件成立後,必須令R累加1,
   '因為符合條件的資料必須放在主場表的第一空列
   For j = 1 To 8 '這內迴圈跑橫向(欄)
   '↑設內順迴圈!j從1 到8
      Sheets("主場").Cells(R, j) = Sheets("樣板").Cells(i, j)
      '↑令主場表 R列j迴圈欄的儲存格值是樣板表的 i迴圈列j迴圈欄儲存格值
   Next
End If
Next
End Sub

看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

av8d

高中生 Rank: 3 Rank: 3

帖子: 693
主題: 273
精華: 0
積分: 992
點名: 9
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2023-11-23

5^#

發表於 2023-3-2 13:24 | 只看該作者

本帖最後由 av8d 於 2023-3-2 13:37 編輯

回復 4# Andy2483

謝謝前輩，您給的答案正是我要的，而且撰寫的更簡單(日後我會朝這方向邁進)，受益良多，
我剛又修改了一下，附上我撰寫(但較為攏長的)。

只抓到第一筆資料(已完成).rar (57.07 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1077
主題: 40
精華: 0
積分: 1102
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010&2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2023-11-28

6^#

發表於 2023-3-2 14:42 | 只看該作者

本帖最後由 Andy2483 於 2023-3-2 14:43 編輯

回復 5# av8d

謝謝前輩回復一起學習
1.前輩自學的邏輯與結果對了就很好了,短不一定是最好的,因為對情境的猜測理解都因人而異
2.自動擴充.濾重複.防錯..等等都是後學想學習的
3.建議前輩養成宣告變數的習慣,有很多好處

這是後學研究前輩方案的理解
Option Explicit
Private Sub CommandButton5_Click()
Dim i&, j&, k%
'↑宣告變數:(i,j)是長整數,k是短整數
For i = 2 To 100
'↑設順迴圈i從2 到100
If Sheets(2).Cells(i, 8) <> "" Then
'↑如果表2的i迴圈列H欄儲存格不是空字元??
   j = 2
   '↑令j變數是 2
JJ: If Sheets(1).Cells(j, 8) = "" Then
   '↑如果表1的i迴圈列H欄儲存格是空格??
      For k = 2 To 8
      '↑設順迴圈k從2 到8
         Sheets(1).Cells(j, k) = Sheets(2).Cells(i, k)
         '↑令表1的j迴圈列k迴圈欄儲存格值是表2的i變數列k迴圈欄儲存格值
      Next
      Else
      '↑否則(表1的i迴圈列H欄儲存格不是空格)
         j = j + 1
         '↑就令j變數+1
         GoTo JJ
         '↑跳到 JJ標示的程序位置繼續執行
   End If
End If
Next
End Sub

以下是另一個變數化的練習,請參考
Private Sub CommandButton5_Click()
Dim R&, R1&, i&, j%, Arr, Sh1 As Range, Sh2 As Range
Set Sh1 = Sheets("主場").Cells
Set Sh2 = Sheets("樣板").Cells
R = Sh1(65536, 8).End(3).Row
R1 = Sh2(65536, 8).End(3).Row
For i = 2 To R1
If Sh2(i, 8) <> "" Then
   R = R + 1
   For j = 1 To 8
      Sh1(R, j) = Sh2(i, j)
   Next
End If
Next
End Sub

看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1077
主題: 40
精華: 0
積分: 1102
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010&2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2023-11-28

7^#

發表於 2023-3-2 15:13 | 只看該作者

回復 1# av8d

這是後學練習陣列的方案,請參考

Private Sub CommandButton5_Click()
Dim R&, i&, j%, Arr
Arr = Range([樣板!A1], [樣板!H65536].End(3))
For i = 2 To UBound(Arr)
If Arr(i, 8) <> "" Then
   R = R + 1
   For j = 1 To UBound(Arr, 2)
      Arr(R, j) = Arr(i, j)
   Next
End If
Next
[主場!H65536].End(3).Item(2, -6).Resize(R, UBound(Arr, 2)) = Arr
Set Arr = Nothing
End Sub

看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP