返回列表 上一主題 發帖

[發問] 橫向的(A~D)產品及代號如何在F/G欄產生直向按照數字的排序

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-10 23:02 | 只看該作者

[發問] 橫向的(A~D)產品及代號如何在F/G欄產生直向按照數字的排序

請問
橫向的(A~D)產品及代號如何在F/G欄產生直向按照數字的排序





Book2.rar (1.75 KB)
收藏 分享
學如逆水行舟 不進則退

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-4-11 00:24 | 只看該作者
Sub test()
k = 2
For i = 2 To [a65536].End(3).Row
For j = 1 To 3 Step 2
If Cells(i, j) <> "" Then
Cells(i, j).Select
Selection.Resize(, 2).Copy Cells(k, 6)
k = k + IIf(Cells(k, 6).MergeCells, 2, 1)
End If
Next
Next
End Sub

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題