摘要：
Sub demo() ' select case 练习 Dim card As String Dim i As Integer For i = 1 To 14 card = Range("a" & i) Select Case card Case "j" Range("b" & i) = "一等奖" Case "q" ... 阅读全文
摘要：
Option Explicit Sub chengfabiao() Dim i As Integer '声明变量 Dim j As Integer For i = 1 To 9 '循环嵌套 For j = 1 To i Cells(i, j) = j & "x" & i & "=" & i * j Cells(i,... 阅读全文