[已解决]求助写入数组后如何批量修改？

jian82372387

如何将班表里同一天的按顺序排成如白1，白2，白3；中1，中1，中2，中3，晚1，晚2，晚3

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-1 17:55

Sub demo()
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      For j = 3 To UBound(a, 2)
         s = Left(a(i, j), 1)
         If s > 0 And s <> "略" Then
            a(i, j) = s & (i - 2) Mod 3 + 1
         End If
      Next
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)
      For j = 3 To UBound(a, 2)
         s = Left(a(i, j), 1)
         If s > 0 And s <> "略" Then
            a(i, j) = s & (i - 2) Mod 3 + 1
         End If
      Next
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub


祝順心，南無阿彌陀佛！

jian82372387

cutecpu 发表于 2021-6-1 17:55
Sub demo()
   a = Sheet1.UsedRange
   For i = 2 To UBound(a)

想请教一下我将第一行日期删除了，要保持这样的效果要更改哪个参数啊？

cutecpu

jian82372387 发表于 2021-6-21 18:25
想请教一下我将第一行日期删除了，要保持这样的效果要更改哪个参数啊？

是第一行就是數據源嗎？

Sub demo()
   a = Sheet1.UsedRange
   For i = 1 To UBound(a)
      For j = 3 To UBound(a, 2)
         s = Left(a(i, j), 1)
         If s > 0 And s <> "略" Then
            a(i, j) = s & (i - 1) Mod 3 + 1
         End If
      Next
   Next
   [a1].Resize(UBound(a), UBound(a, 2)) = a
End Sub

jian82372387

cutecpu 发表于 2021-6-21 19:19
是第一行就是數據源嗎？

Sub demo()

好的，感谢

jian82372387

jian82372387 发表于 2021-6-23 11:44
好的，感谢

请问如果按组别分别改成相应文字加本来的班号，可以实现吗？