[發問] 計算向下箱數加一

john2006168

我想請問有沒人懂用excel   formulas  or VBA, 自動計算向下箱數加一,如右 (column A, B  的資料,要做到(column C,D那樣),
excel test.zip (9.12 KB)

下載次數: 15

2013-8-3 11:57

mhl9mhl9

回復 1# john2006168

B2=Row()-1
b2向下複製公式

john2006168

回復 4# GBKEE


    sorry,attached wrong file ,pls find the attachment excel test.zip (16.12 KB)

下載次數: 5

2013-8-5 23:10

GBKEE

回復 3# john2006168
你上傳這檔案對嗎?與所問的好像沒關連!

Set x = Sheets("DataBasa")有錯誤  ->  Sheets("DataBasa ") 要多一個空格
修改 工作表"DataBasa "

1. Private Sub Enter_Click()
   
2. Set x = Sheets("DataBasa ")

複製代碼

john2006168

John test VBA.zip (297.98 KB)

下載次數: 13

2013-8-4 19:38

回復 2# GBKEE
多謝老師幫忙解決我的問題.
    另外,我想問如果同1板只有一個相同的"Ref#",例如第2板 只有一個相同的JN130720028,那麼結果只顯 1個箱號碼 ref no :JN130720028           Cartons no :31-32.   其他不變,
請問應該怎麼寫??

GBKEE

回復 1# john2006168

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     i = 2
   
5.     With Sheets("sheet1")
   
6.         .Range("D2:E" & .Range("E1").End(xlDown).Row) = ""
   
7.         Do While .Cells(i, "A") <> ""
   
8.             If .Cells(i, "B") > 0 Then
   
9.                 .Cells(.Rows.Count, "D").End(xlUp).Offset(1).Resize(.Cells(i, "B"), 2) = Array(.Cells(i, "A"), "=ROW()-1")
   
10.             End If
    
11.             i = i + 1
    
12.         Loop
    
13.         .Range("E:E") = .Range("E:E").Value
    
14.     End With
    
15. End Sub

複製代碼