Skip to content

Instantly share code, notes, and snippets.

@aoi0308

aoi0308/Module1.bas

Created March 4, 2013 06:16
Show Gist options
  • Save aoi0308/5080316 to your computer and use it in GitHub Desktop.
Save aoi0308/5080316 to your computer and use it in GitHub Desktop.
Download ZIP
Excelの全部のシートの特定セルを置換する
Raw
Module1.bas
Attribute VB_Name = "Module1"
Sub Clear()
Dim wsCurrent As Worksheet
For Each wsCurrent In ThisWorkbook.Worksheets
wsCurrent.Range("xy").Value = "foo"
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment