excel資料排列問題

tppr3695a

tppr3695a
個人積分：120分
文章編號：72831769

120分

樓主

2019-04-18 17:40

各位先進大家好，目前遇到個資料統計彙整的問題(應該算是吧)首頁大表如下

excel資料排列問題

這張表示我平時使用的格式，但是項目更多，我只是列舉幾項，然後我要做一張表讓他變成下列這樣子

excel資料排列問題

目前都是呆呆的用=過去，有沒有可能像上圖的牛肉，直接輸入雞肉時，他會帶出雞肉的資料

附加壓縮檔: 201904/mobile01-db783bd2fc408f81a568d3168c4d4f0a.zip

先謝謝各位高手

2019-04-18 17:40 發佈

文章關鍵字 excel 資料問題

icq168

icq168
個人積分：57分
文章編號：72834766

57分

2樓

2019-04-18 22:35

1.選擇資料全部範圍
2.利用功能列上的資料--篩選
3.點欄位B的下拉箭頭
4.指定你要的資料如牛肉

搞定

tppr3695a

tppr3695a
個人積分：120分
文章編號：72836135

120分

樓主

2019-04-19 0:41

我目前是用此方式.....因為我想要做報表，用篩選的方式比較不方便，不過還是謝謝您

snare

snare
個人積分：3041分
文章編號：72837021

3041分

4樓

2019-04-19 6:52

https://www.mobile01.com/topicdetail.php?f=511&t=5056987&p=1#63233105
https://www.mobile01.com/topicdetail.php?f=511&t=5138523
https://www.mobile01.com/topicdetail.php?f=511&t=5672738&p=1
https://www.mobile01.com/topicdetail.php?f=511&t=5056987&p=1#63233105

or

'======================================

Sub test()

Call delsheet
Dim temparray() As String, col As String, row As Integer,i as Integer, criteriadata As Variant
Dim wb As Workbook, ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("工作表1")
Application.ScreenUpdating = False

col = "b"
row = 3

With ws

.Range(col & ":" & col).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set allcriteria = .Range(ws.Cells(row, col), ws.Cells(row, col).End(xlDown)).SpecialCells(xlCellTypeVisible)
ReDim temparray(1 To allcriteria.Count)
For Each criteriadata In allcriteria
i = i + 1: temparray(i) = criteriadata
Next

row = row - 1

For Each criteriadata In temparray
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "_" & criteriadata & "_"
.Range(ws.Cells(row, col), ws.Cells(row, col).End(xlDown)).AutoFilter Field:=1, Criteria1:=criteriadata
.UsedRange.Copy Sheets("_" & criteriadata & "_").Cells(1, 1)
Next
.AutoFilterMode = False
.Select
End With

Application.ScreenUpdating = True

End Sub

Sub delsheet()

Application.DisplayAlerts = False

Dim delsheet() As Variant, protect() As Variant, i As Integer, j As Integer
ReDim delsheet(1 To Worksheets.Count)

protect = Array("工作表1") '注意：只有名稱在protect陣列內的工作表不會被刪除

For i = 1 To Worksheets.Count
If Join(Filter(protect, Worksheets(i).Name)) = "" Then
j = j + 1
delsheet(j) = Worksheets(i).Name
End If
Next

If j = 0 Then Exit Sub

ReDim Preserve delsheet(1 To j)
Worksheets(delsheet).Delete
Worksheets(1).Select

Application.DisplayAlerts = True

End Sub

'======================================

tppr3695a

tppr3695a
個人積分：120分
文章編號：72838823

120分

樓主

2019-04-19 10:07

感謝大大，但是因為未來資料要移交的問題，可否不要用到VBA。

但VBA的問題未來我還會再學習的，謝謝大大。

Vian_sonic

Vian_sonic
個人積分：1657分
文章編號：72842859

1657分

6樓

2019-04-19 14:52

用EXCEL 增加一個基本資料登錄<data base>工作表,作為搜尋資料庫

另設一個查詢<inquire>工作表,作為指定食材,以下拉式表單查詢各分店每日指定食材用量,並匯總日/月用量

看看是否為版主所需要的內容,壓縮檔隨附~
附加壓縮檔: 201904/mobile01-737db3cae7c57a49ab46631e63a13b29.zip

snare

snare
個人積分：3041分
文章編號：72848163

3041分

7樓

2019-04-19 22:12

tppr3695a wrote:
可否不要用到VBA...(恕刪)

https://www.mobile01.com/topicdetail.php?f=511&t=4692248&p=1
https://www.mobile01.com/topicdetail.php?f=511&t=4688446&p=1#58992753

一、定義名稱
名稱：data
公式：=OFFSET(工作表1!$B$2,1,0,COUNTA(工作表1!$B:$B),1)

二、
查詢的工作表
c1=工作表1!C1
c2=工作表1!C2
公式向右拉

三、
查詢的工作表
a3=IFERROR(OFFSET(工作表1!$B$2,SMALL(IF(data=$A$1,ROW(data),FALSE),ROW(1:1))-2,COLUMN(工作表
1!A:A)-2),"")
(陣列公式)

公式向右、向下，拉到最大可能範圍

附加壓縮檔: 201904/mobile01-fd1249b6e49f79efd3d3a302e73b9f4e.zip