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

---

作者: PD961A    時間: 2011-4-10 23:02     標題: 橫向的(A~D)產品及代號如何在F/G欄產生直向按照數字的排序

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


[attach]5311[/attach]


[attach]5313[/attach]

---

作者: oobird    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)