Re: [算表] 關於合併資料(VBA)
以下VBA會將 sheet1 的資料去除重複在 sheet2 試看看囉
Option Explicit
Sub marco1()
Dim i As Integer, j As Integer, k As Integer
Dim rB As Variant
Application.ScreenUpdating = False
Sheets(2).Range("1:1").ClearContents
With Sheets(1)
rB = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Value
End With
For i = LBound(rB, 1) To UBound(rB, 1)
For j = LBound(rB, 2) To UBound(rB, 2)
With Sheets(2)
If IsError(Application.Match(rB(i, j), .Range("1:1"), 0)) Then
If .Cells(1, 1).Value = "" Then
.Cells(1, 1).Value = rB(i, j)
Else
.Cells(1, .Range("A1").CurrentRegion.Columns.Count + 1) = rB(i, j)
End If
End If
End With
Next j
Next i
Application.ScreenUpdating = True
Sheets(2).Select
MsgBox ("成功")
End Sub
※ 引述《covet (Primum non nocere)》之銘言：
: 軟體:Excel
: 版本:2007
: 現有一份資料如下
: A B C D E F
: 1 小明 香蕉 木瓜 鳳梨
: 2 小明 鳳梨 西瓜
: 3 小明 木瓜 番茄 蘋果
: 資料中有重複的資料（如鳳梨出現兩次）
: 想要整理成如下
: A B C D E F G H
: 1 小明 香蕉 木瓜 鳳梨 西瓜 番茄 蘋果
: 請問我該怎麼寫呢？
: 謝謝 :)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.146.144
Office 近期熱門文章
PTT數位生活區 即時熱門文章
11
38