Snasui Excel Forum

B2=IF(SUMPRODUCT((B!$B$2:$I$2000=B$1)*ISNUMBER(SEARCH(B!$A$2:$A$2000,$A2))),"O","") คัดลอกไปส่วนที่เกี่ยวข้องครับ

นับที่ซ้ำกัน
b1=ROWS(UNIQUE(FILTER(A1:A99,(COUNTIF(A1:A99,A1:A99)>1)*(A1:A99<>""))))
นับที่ไม่ซ้ำ
b2=SUM(--(COUNTIF(A1:A99,A1:A99)=1)*(A1:A99<>""))


หรือ
นับที่ซ้ำกัน
b1=COUNTA(UNIQUE(A1:.A99))
นับที่ไม่ซ้ำ
b2=COUNTA(UNIQUE(A1:.A99,,1))

G6=SUMPRODUCT((A$6:A$54=F6)*(B$6:D$54<>"")) Copy Down

Sub DeleteSheetsWithPrefix()
Dim ws As Worksheet
Dim i As Long
Dim prefixList As Variant
Dim prefix As Variant
Dim deleteSheet As Boolean

' ปิดแจ้งเตือน
Application.DisplayAlerts = False

' กำหนดคำนำหน้า (Prefix) ที่ต้องการลบ
prefixList = Array("T_", "S_")

' วนลูปจากหลังมาหน้าเพื่อป ...

C2=SUBSTITUTE(datasource!C2,".","/")

Revised
Sub CopyToMergedCell()
Dim sourceRange As Range, TagetRange As Range
Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A45")
Set TagetRange = ThisWorkbook.Sheets("Sheet2").Range("B1:B45")
sourceRange.Copy
TagetRange.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation ...

E6=IF(B6="","",SUMPRODUCT(($C6=data!$E$2:$E$1000)*($K$1>=data!$A$2:$A$1000)*(LEFT(data!$C$2:$C$1000,15)<>"เงินยืมไปราชการ")*data!G$2:G$1000))

I2=IF(A2="","","("&TEXT(A2,"0.00")&")")

B2=IFERROR(VLOOKUP(A2,Sheet1!B$5:F$99,5,0),"")
C2=IFERROR(VLOOKUP(A2,Sheet2!B$5:F$99,5,0),"")

ต้องเซ็ตใน control panel ในหัวข้อ Internet
ให้ใส่แหล่งที่เชื่อมต่อของไฟล์ที่อยู่นั้นๆครับ

ปรับ A2=SUM(--(FREQUENCY(IF((Sheet1!$B2:$B21=A$1)*(Sheet1!$D2:$D21="ชั้น1"),MATCH(Sheet1!$C2:$C21&Sheet1!$D2:$D21,Sheet1!$C2:$C21&Sheet1!$D2:$D21,)),ROW(Sheet1!$B2:$B21)-ROW(Sheet1!$B2))>0)) กด Ctrl+Shift+Enter แล้ว Copy Right

ปรับเป็น
I3=SUMPRODUCT(IFERROR((B$2:B$27=H3)*(D$2:D$27="ชั้น1")/COUNTIFS(C$2:C$27,C$2:C$27,D$2:D$27,D$2:D$27),)) Copy down

I3=BYROW(H3:H6,LAMBDA(a,COUNTA(UNIQUE(FILTER(C2:C27&D2:D27,(B2:B27=a)*(D2:D27="ชั้น1"))))))

ปรับตามนี้ดูครับ
Sub Save()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim sourceRange As Variant
Dim targetColumns As Variant
Dim i As Integer
Set wsSource = Sheets("ทำรายการ")
Set wsTarget = Sheets("Save")
sourceRange = Array("B3", "B5", "B4", "C2")
targetColumns = Array("A", "B ...

กรุณาแนบไฟล์ ดังกล่าวมาด้วย ครับจะได้เข้าใจตรงกันครับ

E3=INT(SUM($A3,$B3/100)*$E$1)
F3=ROUND(MOD(SUM($A3,$B3/100)*$E$1,1)*100,0)

ปรับเป็น j3=LET(a,D3:D3592,b,B3:B3592,BYROW(G3:G4,LAMBDA(c,SUM(FILTER(a,(C3:C3592=c)*(COUNTIF(b,b)>1))))))

ไม่มีค่าที่เป็นไปตามเงื่อนไขครับ ลองตรวจดูครับจะเห็นว่าไม่มีเข้าเงื่อนไขครับ

J3=LET(a,D3:D14,b,B3:B14,BYROW(G3:G4,LAMBDA(c,SUM(FILTER(a,(C3:C14=c)*(a>1)*(COUNTIF(b,b)>1))))))

ปรับตามนี้ครับ
Sub ReportDTTM()
Dim wsCombined As Worksheet
Dim wsDTTM As Worksheet
Dim lastRowCombined As Long
Dim lastRowDTTM As Long
Dim i As Long, j As Long
Dim total As Double
Dim combinedValue As String
Dim dttmValue As String

' กำหนดชีท
Set wsCombined = ThisWorkbook.Sheets ...