¥i¥HÀ°§Ú¼g°j°é¨Ã­×¥¿¿ù»~¶Ü

opman

Range("K2") 1-140µ§¸ê®Æ(¥i¥H¯B°Ê¶Ü)
Range("K1") 1--7µ§¸ê®Æ(¥i¥H¯B°Ê¶Ü)
Sub §¹¦¨¶]ªÀ()
'
' §¹¦¨¶]ªÀ ¥¨¶°
''
  Range("K2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "7"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "6"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "5"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "4"
°õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "3"
°õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "2"
°õ¦æSUB §ÓÄ@½T©w
Range("K1").Select
      ActiveCell.FormulaR1C1 = "1"
      °õ¦æSUB §ÓÄ@½T©w
Range("K2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "2"
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "7"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "6"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "5"
        °õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "4"
°õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "3"
°õ¦æSUB §ÓÄ@½T©w
      Range("K1").Select
      ActiveCell.FormulaR1C1 = "2"
°õ¦æSUB §ÓÄ@½T©w
Range("K1").Select
      ActiveCell.FormulaR1C1 = "1"
      °õ¦æSUB §ÓÄ@½T©w

End Sub

opman

¦^´_ 1# opman

§Ú¦Û¤vºN¯Á¼g¦¨³o¼Ë¦ý«ù¦æ¦n¤[¡A¦³¿ìªkÁYµu®É¶¡¶Ü
    Sub §¹¦¨¶]ªÀ()
'
' §¹¦¨¶]ªÀ ¥¨¶°
'
Dim s As Integer
For s = 1 To 128
    Range("K2") = s
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "7"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "6"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "5"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "4"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "3"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "2"
        Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "1"
            Columns("F:F").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Replace What:="N", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
  Next s
End Sub