特殊文字コード(機種依存文字等)置換え。

2018年9月28日備忘録(びぼうろく), VBA(マクロ), 関数

・Windowsのexcelで作業するとき、特殊文字コード(機種依存文字等)があり、どうしたもんかと思うことがありますよね。そんな時マクロで変換しちゃいましょう。

・EXCEL関数
1行目はexcel関数ですA1に入ってる文字の内部コードが調べられます。※1文字だけですよ。
2行目はシングルコーテーション等は1文字でEXCELのセルに入力できないので、前に適当に1文字入れて、2文字目を調べます。MID関数を使います。

=UNICODE(A1)
=UNICODE(MID(A1,2,1))

・EXCELマクロ
1行目はDATA000にユニコード9426が入っていた場合、”文字9426″へ置き換えます。
4行目はDATA000にユニコード8226が入っていた場合、”文字点”へ置き換えます。

DATA000 = Replace(DATA000, ChrW(9426), "文字9426")

(•/8226)
DATA000 = Replace(DATA000, ChrW(8226), "文字点")

以下、代表的な特殊文字です。
※他にも拡張文字として存在しています。

1450 ֪
1451 ֫
1452 ֬
1453 ֭
1454 ֮
1455 ֯
1456 ְ
1457 ֱ
1458 ֲ
1459 ֳ
1460 ִ
1461 ֵ
1462 ֶ
1463 ַ
1464 ָ
1465 ֹ
1466 ֺ
1467 ֻ
1468 ּ
1469 ֽ
1470 ־
1471 ֿ
1472 ׀
1473 ׁ
1474 ׂ
1475 ׃
1476 ׄ
1477 ׅ
1478 ׆
1479 ׇ
1480 ׈
1481 ׉
1482 ׊
1483 ׋
1484 ׌
1485 ׍
1486 ׎
1487 ׏
1488 א
1489 ב
1490 ג
1491 ד
1492 ה
1493 ו
1494 ז
1495 ח
1496 ט
1497 י
1498 ך
1499 כ
1500 ל
1501 ם
1502 מ
1503 ן
1504 נ
1505 ס
1506 ע
1507 ף
1508 פ
1509 ץ
1510 צ
1511 ק
1512 ר
1513 ש
1514 ת
1515 ׫
1516 ׬
1517 ׭
1518 ׮
1519 ׯ
1520 װ
1521 ױ
1522 ײ
1523 ׳
1524 ״
1525 ׵
1526 ׶
1527 ׷
1528 ׸
1529 ׹
1530 ׺
1531 ׻
1532 ׼
1533 ׽
1534 ׾
1535 ׿
1536 ؀
1537 ؁
1538 ؂
1539 ؃
1540 ؄
1541 ؅
1542 ؆
1543 ؇
1544 ؈
1545 ؉
1546 ؊
1547 ؋
1548 ،
1549 ؍
1550 ؎
1551 ؏
1552 ؐ
1553 ؑ
1554 ؒ
1555 ؓ
1556 ؔ
1557 ؕ
1558 ؖ
1559 ؗ
1560 ؘ
1561 ؙ
1562 ؚ
1563 ؛
1564 ؜
1565 ؝
1566 ؞
1567 ؟
1568 ؠ
1569 ء
1570 آ
1571 أ
1572 ؤ
1573 إ
1574 ئ
1575 ا
1576 ب
1577 ة
1578 ت
1579 ث
1580 ج
1581 ح
1582 خ
1583 د
1584 ذ
1585 ر
1586 ز
1587 س
1588 ش
1589 ص
1590 ض
1591 ط
1592 ظ
1593 ع
1594 غ
1595 ػ
1596 ؼ
1597 ؽ
1598 ؾ
1599 ؿ
1600 ـ
1601 ف
1602 ق
1603 ك
1604 ل
1605 م
1606 ن
1607 ه
1608 و
1609 ى
1610 ي
1611 ً
1612 ٌ
1613 ٍ
1614 َ
1615 ُ
1616 ِ
1617 ّ
1618 ْ
1619 ٓ
1620 ٔ
1621 ٕ
1622 ٖ
1623 ٗ
1624 ٘
1625 ٙ
1626 ٚ
1627 ٛ
1628 ٜ
1629 ٝ
1630 ٞ
1631 ٟ
1632 ٠
1633 ١
1634 ٢
1635 ٣
1636 ٤
1637 ٥
1638 ٦
1639 ٧
1640 ٨
1641 ٩
1642 ٪
1643 ٫
1644 ٬
1645 ٭
1646 ٮ
1647 ٯ
1648 ٰ
1649 ٱ
1650 ٲ
1651 ٳ
1652 ٴ
1653 ٵ
1654 ٶ
1655 ٷ
1656 ٸ
1657 ٹ
1658 ٺ
1659 ٻ
1660 ټ
1661 ٽ
1662 پ
1663 ٿ
1664 ڀ
1665 ځ
1666 ڂ
1667 ڃ
1668 ڄ
1669 څ
1670 چ
1671 ڇ
1672 ڈ
1673 ډ
1674 ڊ
1675 ڋ
1676 ڌ
1677 ڍ
1678 ڎ
1679 ڏ
1680 ڐ
1681 ڑ
1682 ڒ
1683 ړ
1684 ڔ
1685 ڕ
1686 ږ
1687 ڗ
1688 ژ
1689 ڙ
1690 ښ
1691 ڛ
1692 ڜ
1693 ڝ
1694 ڞ
1695 ڟ
1696 ڠ
1697 ڡ
1698 ڢ
1699 ڣ
1700 ڤ
1701 ڥ
1702 ڦ
1703 ڧ
1704 ڨ
1705 ک
1706 ڪ
1707 ګ
1708 ڬ
1709 ڭ
1710 ڮ
1711 گ
1712 ڰ
1713 ڱ
1714 ڲ
1715 ڳ
1716 ڴ
1717 ڵ
1718 ڶ
1719 ڷ
1720 ڸ
1721 ڹ
1722 ں
1723 ڻ
1724 ڼ
1725 ڽ
1726 ھ
1727 ڿ
1728 ۀ
1729 ہ
1730 ۂ
1731 ۃ
1732 ۄ
1733 ۅ
1734 ۆ
1735 ۇ
1736 ۈ
1737 ۉ
1738 ۊ
1739 ۋ
1740 ی
1741 ۍ
1742 ێ
1743 ۏ
1744 ې
1745 ۑ
1746 ے
1747 ۓ
1748 ۔
1749 ە
1750 ۖ
1751 ۗ
1752 ۘ
1753 ۙ
1754 ۚ
1755 ۛ
1756 ۜ
1757 ۝
1758 ۞
1759 ۟
1760 ۠
1761 ۡ
1762 ۢ
1763 ۣ
1764 ۤ
1765 ۥ
1766 ۦ
1767 ۧ
1768 ۨ
1769 ۩
1770 ۪
1771 ۫
1772 ۬
1773 ۭ
1774 ۮ
1775 ۯ
1776 ۰
1777 ۱
1778 ۲
1779 ۳
1780 ۴
1781 ۵
1782 ۶
1783 ۷
1784 ۸
1785 ۹
1786 ۺ
1787 ۻ
1788 ۼ
1789 ۽
1790 ۾
1791 ۿ
1792 ܀
1793 ܁
1794 ܂
1795 ܃
1796 ܄
1797 ܅
1798 ܆
1799 ܇
3580
3581
3582
3583 ෿
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647 ฿
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
8311
8312
8313
8314
8315
8316
8317
8318
8319
8320
8321
8322
8323
8324
8325
8326
8327
8328
8329
8330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
8466
8467
8468
8469
8470
8471
8472
8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8530
8531
8532
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599
8610
8611
8612
8613
8614
8615
8616
8617
8618
8619
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8970
8971
8972
8973
8974
8975
8976
8977
8978
8979
9300
9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
9334
9335
9336
9337
9338
9339
9450
9451
9452
9453
9454
9455
9456
9457
9458
9459
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
9494
9495
9496
9497
9498
9499
9500
9501
9502
9503
9504
9505
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520
9521
9522
9523
9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9600
9601
9602
9603
9604
9605
9606
9607
9608
9609
9610
9611
9612
9613
9614
9615
9616
9617
9618
9619
9620
9621
9622
9623
9624
9625
9626
9627
9628
9629
9630
9631
9632
9633
9634
9635
9636
9637
9638
9639
9640
9641
9642
9643
9644
9645
9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658
9659
9660
9661
9662
9663
9664
9665
9666
9667
9668
9669
9670
9671
9672
9673
9674
9675
9676
9677
9678
9679
9680
9681
9682
9683
9684
9685
9686
9687
9688
9689
9700
9701
9702
9703
9704
9705
9706
9707
9708
9709
9710
9711
9712
9713
9714
9715
9716
9717
9718
9719
9730
9731
9732
9733
9734
9735
9736
9737
9738
9739
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9820
9821
9822
9823
9824
9825
9826
9827
9828
9829
9830
9831
9832
9833
9834
9835
9836
9837
9838
9839