用vba 写 判断从D2开始是否有加号，没加号在C2开始对应单元格输入“童短裤”，有的话，有几个就对应C2开始输入“TDK加一个”

可以使用下面的VBA代码实现：

Sub CheckAddition()
    Dim i As Integer
    Dim cell As Range
    
    For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
        If InStr(1, Range("D" & i), "+") = 0 Then
            Range("C" & i) = "童短裤"
        Else
            For Each cell In Range("D" & i).Characters
                If cell.Text = "+" Then
                    Range("C" & i + cell.Start - Range("D" & i).Start) = "TDK加一个"
                End If
            Next cell
        End If
    Next i
End Sub

这段代码会从第2行开始循环，判断D列中的单元格是否有加号。如果没有，则在对应的C列单元格中输入“童短裤”，如果有，则在对应的C列单元格中输入“TDK加一个”，并根据加号的位置确定要输入的单元格。