[發問] 如何將A欄相同的字, 插入新欄位新增到B欄裡

v03586

麻煩大大將EXCEL 資料表上Start 資料表上按鈕寫入功能
直接將FMC資料表做改變

請問一下高手如何將已合併的欄位如下圖

下載 (56.4 KB)

2016-2-11 23:48

轉換成下圖?

下載 (53.15 KB)

2016-2-11 23:48

就是把A欄位Product 整合到B欄位的最上欄

TEST.rar (19.33 KB)

下載次數: 11

2016-2-11 23:50

准提部林

Sub test()
Dim i&, xR As Range, T$
For i = 9 To [FMC!A65536].End(xlUp).Row
　　Set xR = [FMC!A1].Cells(i, 1)
　　If xR = "" Or xR = T Then GoTo 101
　　[FMC!1:1].Copy
　　xR.Insert Shift:=xlDown
　　xR(0, 2) = "Product"
　　xR(0, 4) = xR
　　T = xR:  i = i + 1
101: Next
[FMC!A:A].EntireColumn.Delete
End Sub

v03586

回復 2# 准提部林


     感謝版大再次鼎力相助!!!! 另想詢問一下版大 EXCEL 是否能做到即時看板系統? 還是這種系統只能用網頁+SQL資料庫 去呈現呢?
如這篇所發問

v03586

回復 2# 准提部林


    請問大大 , 如果要將這個功能變成插入後Product   A 那欄 欄寬變24,  A 欄~Y欄 反底色黃色
怎麼修改呢?  如圖, 只是反色範圍有自訂到Y欄

下載 (51.29 KB)

2016-4-15 02:09

我用錄製的程式碼  請教大大如何修改

1.     Rows("3:3").Select
   
2.     Selection.RowHeight = 24
   
3.     Range("A3:Y3").Select
   
4.     With Selection.Interior
   
5.         .Pattern = xlSolid
   
6.         .PatternColorIndex = xlAutomatic
   
7.         .Color = 65535
   
8.         .TintAndShade = 0
   
9.         .PatternTintAndShade = 0
   
10.     End With

複製代碼

准提部林

回復 4# v03586

1. Sub test()
   
2. Dim i&, xR As Range, T$
   
3. For i = 9 To [FMC!A65536].End(xlUp).Row
   
4.     Set xR = [FMC!A1].Cells(i, 1)
   
5.     If xR = "" Or xR = T Then GoTo 101
   
6.     [FMC!1:1].Copy
   
7.     xR.Insert Shift:=xlDown
   
8.     xR(0, 2) = "Product"
   
9.     xR(0, 4) = xR
   
10.     xR(0).RowHeight = 24
    
11.     xR(0).Resize(1, 26).Interior.Color = vbYellow
    
12.     T = xR:  i = i + 1
    
13. 101: Next
    
14. [FMC!A:A].EntireColumn.Delete
    
15. End Sub

複製代碼

v03586

回復 5# 准提部林


    感謝大大提點!!!! 修改完成囉~~~

v03586

回復 5# 准提部林


    在問一下....如果要將字體大小調整
加入這一行無效...請問要在哪邊加入呢？
xRG(0).size = 20

准提部林

回復 7# v03586


xR(0).FONT.size = 20

沒用過語法, 用錄製取得!

v03586

回復 8# 准提部林


    似乎沒有改變字型大小@@

v03586

回復 8# 准提部林


    找到方法了！
xR(0,4).Font.Size = 20

就能解決！