[發問] 跨工作頁查找某欄位的值

JT1221

各位版大好

遇到一個問題和寫法請各先進指導 !! 先感謝大家~~

問題：第二個工作頁的 G46 = 第一個工作頁G56欄位 (因為『欄』是固定的，但『列』要用查找的，就是G欄的倒數三列；而且實際工作頁有很多)，再麻煩大家幫忙!  謝謝

以下是自己研究的，但都找不到我要的欄位
Public Sub Sum()
        
        For k = 7 To 31
            
            Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(3) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Offset(2).Value
            Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(2) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Offset(1).Value
            Sheets("訂單明細 -4月").Cells(500, k).End(xlUp).Offset(1) = Sheets("訂單明細 -3月").Cells(500, k).End(xlUp).Value
   
        Next

End Sub

n7822123

回復 1# JT1221


你知道End(xlup)的意思嗎???  End是用來找 "有值" 的儲存格

你"訂單明細 -4月"裡面 46,47,48列本身是沒有值的，

但是程式填完之後，就變成有值了，再用End就會抓到不同列!

不會有人同時用End用法然後又填值，因為你要很清楚現在"程式"已經把值填到哪一格，

依你的邏輯，修改你的寫法如下(請先把 "訂單明細 -4月" G46,G47,G48的公式刪除)

Sub EX1()
Sheets("訂單明細 -4月").Activate
With Sheets("訂單明細 -3月")
  For C = 7 To 31
    Cells(500, C).End(xlUp).Offset(3) = .Cells(500, C).End(xlUp).Offset(-2)
    Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp).Offset(-1)
    Cells(500, C).End(xlUp).Offset(1) = .Cells(500, C).End(xlUp)
  Next
End With
End Sub


這樣寫程式別人大概也很難懂，因為不會有人邊用End邊填值.......

如果把上面3行程式對調結果會大不同，提供一個比較"正常"的寫法如下


Sub EX2()
'找尋F攔 "庫存=已排生產-客戶訂單" 這列
R3 = ['訂單明細 -3月'!F500].End(xlUp).Row
R4 = ['訂單明細 -4月'!F500].End(xlUp).Row
Sheets("訂單明細 -4月").Activate
With Sheets("訂單明細 -3月")
  For C = 7 To 31
    Cells(R4 + 3, C) = .Cells(R3 + 3, C)
    Cells(R4 + 4, C) = .Cells(R3 + 4, C)
    Cells(R4 + 5, C) = .Cells(R3 + 5, C)
  Next
End With
End Sub

JT1221

回復 2# n7822123

感謝N大的回覆 !  已經可以用使用，謝謝

End(xlUp) 的寫法我大概知道，但因為我原本寫法在逐步執行的時候是看不到現在做到哪裡，所以一直卡關。
原來的寫法是依自己表格的需求，在網路上查找相關的寫法，就變得很奇怪，而且一直抓不到我要的資料。

再次感謝幫忙 !!  〈（＿　＿）〉

JT1221

回復 2# n7822123

另外請教一下!

R3 = ['訂單明細 -3月'!F500].End(xlUp).Row 中， 括弧這個用法的意思是在『訂單明細-3月 F500 』這個位置的意思嗎?  ['訂單明細 -3月'!F500]
這個用法哪裡有範例或寫法嗎?  網路上查不到，都是用sheets + cells 或者 Range去指定位置。

n7822123

回復 4# JT1221

這是簡寫

R3 = ['訂單明細 -3月'!F500].End(xlUp).Row

等同於

R3=sheets("訂單明細 -3月").range("F500").End(xlUp).Row