Excel VBAŽ¿–â” IV

“–Ž¿–â” ‚ÍA—LŽu‚Ìƒ{ƒ‰ƒ“ƒeƒBƒA¸_‚Ì‚¨‚©‚°‚Å¬‚è—§‚Á‚Ä‚¢‚Ü‚·B
–â‘è‚ª‰ðŒˆ‚µ‚½‚çA•K‚¸‚¨—ç‚ð‚µ‚Ü‚µ‚å‚¤‚ËB
–{ƒTƒCƒg‚ÌŠî–{•ûj‚ð‚Ü‚Æ‚ß‚Ü‚µ‚½B‚±‚¿‚ç ‚ð‚²ˆê“Ç‚‚¾‚³‚¢B

“ŠeŽí•Ê‚Ì‘I‘ð‚ª•K—v‚Å‚·B‚²’ˆÓ‚‚¾‚³‚¢B
–À˜f“Še–hŽ~‚Ì‚½‚ßAURL‚Ì“ü—Í‚ð§ŒÀ‚µ‚Ä‚¢‚Ü‚·B‚²—¹³‚‚¾‚³‚¢B


	V‹K“Še „«ƒcƒŠ[•\Ž¦ „«ˆê——•\Ž¦ „«ƒgƒsƒbƒN•\Ž¦ „«ŒŸõ „«Ý’è „«‰ß‹ŽƒƒO „«ƒz[ƒ€

5586 / 76735

©ŽŸ‚Ö@b@‘O‚Ö¨


	y76759zRe:WŒv‚É‚Â‚¢‚Ä

ƒÀ - 15/3/10(‰Î) 8:52 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

¥ƒrƒMƒi[ ‚³‚ñF

ˆÈ‰º‚ÅŽŽ‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢

Sub ”Ž®‚Ì–„‚ßž‚Ýƒ^ƒCƒv3()
@@
@@Sheets("Sheet2").Cells.Clear
@@Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Range("A1")
@@Sheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
@@
@@
@@Sheets("Sheet2").Range("A2", Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 4).Formula = _
@@@@"=SUMIFS(Sheet1!D:D,Sheet1!$J:$J,Sheet2!$A2,Sheet1!$C:$C,""”Ì”„"")"

End Sub

2 hits

y76727zWŒv‚É‚Â‚¢‚Ä ƒrƒMƒi[ 15/3/5(–Ø) 14:28