VBA代碼選擇每個奇數列Sub SelectOddColumns() Dim selectedRange As Range Dim i AsIntegerDim newRange As Range ' define selected rangeSet selectedRange = Selection ' for each column in the selected rangeFor i = 1 To selectedRange.Columns.Count Step 2 ' add every even column to a new rangeIf newRange IsNothingThenSet newRange = selectedRange.Columns(i) ElseSet newRange = Union(newRange, selectionRange.columns(i))結束如果下一個我選擇新範圍(如果不是新範圍),則NewRange。選擇結束如果結束
VBA代碼選擇每個均勻列Sub SelectEvenColumns() Dim selectedRange As Range Dim i AsIntegerDim newRange As Range ' define selected rangeSet selectedRange = Selection ' for each column in the selected rangeFor i = 2 To selectedRange.Columns.Count Step 2 ' add every even column to a new rangeIf newRange IsNothingThenSet newRange = selectedRange.Columns(i) ElseSet newRange = Union(newRange, selectionRange.columns(i))結束如果下一個我選擇新範圍(如果不是新範圍),則NewRange。選擇結束如果結束
VBA代碼選擇Excel中的每個N列Dim selectedRange As Range Dim i AsIntegerDim newRange As Range Dim inputNum Set selectedRange = Selection ' if a decimal number is entered, only the integer part is used inputNum = Int(Val(TextBox1.Text)) ' loop through each column in the selected rangeIf inputNum > selectedRange.Columns.Count Then MsgBox "Incorrect N value. Please enter a valid value for N and try again." ,vbexclamation ,如果i = inputNum to selectedRange.Columns.Count spep inputnum '將每個步驟中的每個列添加到新範圍內,則“錯誤”退出子端。選擇結局,如果我。