返回列表 上一主題 發帖

[發問] 橫向的(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

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題