在VBA中编写代码以生成奇数，可以使用以下几种方法：
方法1：使用模运算符
模运算符（Mod）可以用来判断一个数是否能被另一个数整除。如果一个数除以2的余数为1，则该数为奇数；否则为偶数。
```vba
Sub GenerateOddNumbers（）
Dim i As Long
Dim oddNumbers（） As Long
ReDim oddNumbers（1 To 10） ' 定义一个包含10个奇数的数组
For i = 1 To 10
If i Mod 2 = 1 Then
oddNumbers（i） = i
End If
Next i
' 输出奇数数组
For i = LBound（oddNumbers） To UBound（oddNumbers）
MsgBox "奇数 " & oddNumbers（i）
Next i
End Sub
```
方法2：使用条件语句
可以使用`If`语句来判断一个数是否为奇数，并相应地执行操作。
```vba
Sub CheckOddNumbers（）
Dim i As Long
Dim num As Long
num = InputBox（"请输入一个整数："）
If num Mod 2 = 1 Then
MsgBox num & " 是奇数"
Else
MsgBox num & " 是偶数"
End If
End Sub
```
方法3：使用数组和循环
可以创建一个数组来存储奇数，并使用循环来填充数组。
```vba
Sub FillOddNumbersArray（）
Dim oddNumbers（） As Long
Dim i As Long
Dim size As Long
size = 10 ' 定义数组大小
ReDim oddNumbers（1 To size） ' 定义一个包含10个奇数的数组
For i = 1 To size
oddNumbers（i） = 2 * i - 1 ' 生成奇数
Next i
' 输出数组中的奇数
For i = LBound（oddNumbers） To UBound（oddNumbers）
MsgBox "奇数 " & oddNumbers（i）
Next i
End Sub
```
方法4：使用函数
可以编写一个函数来判断一个数是否为奇数，并在需要时调用该函数。
```vba
Function IsOdd（num As Long） As Boolean
IsOdd = （num Mod 2 = 1）
End Function
Sub UseIsOddFunction（）
Dim num As Long
num = InputBox（"请输入一个整数："）
If IsOdd（num） Then
MsgBox num & " 是奇数"
Else
MsgBox num & " 是偶数"
End If
End Sub
```
这些方法都可以用来在VBA中生成和判断奇数。选择哪种方法取决于具体的应用场景和需求。